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EL MICROCOMPUTADOR * 
CON MILES DE PROGRAMAS 





SOFTWARE Y PERIFERICOS 
TOTALMENTE COMPATIBLES 
CON ZX SPECTRUM -i- 


il tí) 


ZX SPECTRUM * * ALL RlGHTS 
RE5ERVED SINCLAIR RESEARCH ITD 


• Control del volumen del sonido a través del TV (sintetizador operado 

por BASIC) | 1 

• Interface incorporado para joystick 

• Mensajes de ejecución y codiga de reportes de errores en castellano, 

• TRACE: Comando de seguimiento de programas, permitiendo la 
rapida corrección de errores de lenguaje. 

• UDG; Comando de editor de caracteres especiales definidos por 
el usuario (acentos, N, etc,). 

• Feedback sonoro del teclado 

• Fuente de alimentación con interruptor, 

• Ameno, fácil y completo manual de instrucciones en castellano. 

M ICRODIGIM L 

Importa y distribuye: ARVOC s,a,i.c.f.i. 

Tte* GraLJ. D. Perón 1563 (Ex Cangallo) (1037) 

Capital Federal - Tet; 35 - 2400/25U/8241, 
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New 


pág. 4 

Las novedades del mercado in- 
formático internacional. 


Los monstruos 


más famosos pág. e 


Les decimos cómo crear los grá¬ 
ficos de los personajes más fa¬ 
mosos de los juegos, para que los 
puedan incluir en sus propios 
programas. 


Z80: El rey de los 


procesadores pág 12 


Dentro del mundillo de las uni¬ 
dades centrales de proceso, con 
ocho bits de datos y dieciséis bits 
de direcciones, presentamos al 


Z-80 en una ficha técnica, 


Programas 
inéditos para 

7K 83/85, 

CZ 1000/1500 

Music Machine (pág, 10) 
Destructor de estrellas(pág.10^ 
Interés compuesto (pág. 11) j 
Factores (pág. 11) 

Archivo telefónico (pág, 14) 
Reducción de matrices (pág, 2Í 
Fórmula 1 (pág. 32) 

TK90X, TS 2068, 

CZ 2000 


Génesis de la 
programación pág.ts 

Explicamos las reglas para lograr 
un buen software, y que además 
sea comprensible para todos los 
que están en este apasionante 
mundo. 

Matrices w v 20 


• Caja de ahorros (pág. 9) 

• Control de tránsito (pág. 18) 

• Dictanúmeros (pág. 25) 


ciclo secundario, o primer año 
de la universidad, y a todos aque¬ 
llos que necesiten programar la 
Carga y operación de distintos ti¬ 
pos de matrices. 



Este artículo va dirigido a estu¬ 
diantes de los últimos años del 


Software 

ai día pág. 5 

Comentamos Match Point y Psst 

agio pág. 15 

Engaños, hechizos y descubri¬ 
mientos. 

Un universo 
paralelo pág. 28 

Explicamos el manejo de las in¬ 
terrupciones en el microproce¬ 
sador Z-80. 

Buzón pág. 34 

Recibimos consultas y sugeren¬ 
cias, y las contestamos. 
























































Spectrum 128 






Sir Olive Sinclair jun¬ 
to con la compañía española 
Investrónica ha lanzado en ese 
país un nuevo primo para el ya 
famoso Spectrum de 48 K. 

El nuevo Spectrum con 128 K 
y apariencia de Plus, que se fa¬ 
bricará en Madrid antes que 
en Inglaterra, trae algunas be¬ 
llezas que por ahora disfruta¬ 
rán sólo algunos papis espa¬ 
ñoles. 

Entre ellas se destaca su nue¬ 
vo editor de pantalla incorpo¬ 
rado en ROM, que permite la 
edición de programas en cual¬ 
quier lugar de ésta, así como 
introducir comandos directa¬ 
mente. 

Trae un teclado numérico in¬ 
dependiente con teclas de cur¬ 


sor que permiten su utilización 
como calculadora. Es también 
posible, por medio de éste, 
editar programas. 

Su conexión con el mundo ex¬ 
terior se amplía por medio de 
tres interfaces: RS 232, MIDI 
(para instrumentos musicales) 
y salida RGB de monitor. 

Por medio de un comando per¬ 
mite que sea utilizada como 
su antecesora de 48 K, hacién¬ 
dolas compatibles en este mo¬ 
do a lo que software se refiere. 
Y de yapa 128 K de memoria. 
Se calcula que en el país euro¬ 
peo su precio será de alrede¬ 
dor de 60000 pesetas. 

Vaya uno a saber cuánto cos¬ 
taría aquí, si algún arriesgado 
importador se dignara a traer¬ 
la... 




Microordenador 
en forma 
de manzana 


Se trata de un proyecto 

de la Universidad de Michigan (EE. 
UU), quienes han desarrollado un 
micro que tiene la forma y el tamaño 
de una manzana. 

El ordenador se cuelga de un árbol y 
sigue el mismo proceso que cual¬ 
quier otra manzana: 
se recoge, empaqueta y se envía al 
detallista. De esta forma se trata de 
seguir el proceso hasta el final, a fin 
de analizar las variaciones de hume¬ 
dad y temperatura, y averiguar de es¬ 
ta forma las causas que dañan la fru¬ 
ta. 

Los ingenieros e investigadores de la 
Universidad de Michigan afirman 
que en base a simulaciones hechas 
por computadora, todas las funcio¬ 
nes que ha de cumplir este frutal or¬ 
denador. han sido probadas con éxi¬ 
to. salvo la última... la extracción del 
juguito. 


¡nterfase 

La empresa inglesa ITL 

Kathmill. anuncia la aparición de un 
interface que permitirá conectar a 
una serie de ordenadores hasta cua¬ 
tro unidades de disco de cualquier ti¬ 
po, ya sea de 3. 3-1/2 ó 5-1/4 pulga¬ 
das a su ordenador. 

Esta interface está lista en sus versio¬ 
nes para el Commodore 64. Oric y se 
está preparando la versión para el 
Spectrum. 

Una de las mayores ventajas es que 
permitirá el uso de programas bajo el 
sistema operativo CP/M. en cual¬ 
quiera de estos ordenadores. Como 
ventaja adicional para los usuarios 
del Spectrum, el interface incorpora 
16 K de RAM para que el ordenador 
tenga los 64 K requeridos para el 
CP/M. además de un interface RS 
232 y otro del tipo Centronics. 

La misma empresa fabrica su propia 
unidad de discos de 3 pulgadas com¬ 
patibles con el sistema. Los discos son 
de doble cara doble densidad permi¬ 
tiendo una capacidad de almacena¬ 
miento de 220 K por cara una vez 
formateado el disco. 

En fin, alguna vez será... 























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































ORDENADOR: CZ2000 Spectrum/TK 90 
SOPORTE: Cassette 
CLASE: Juego 
CONFIGURACION: 16 K 



“No amarás a los insectos que se co- 
men las plantitas”, es el lema de este 
juego. 

En efecto, nos transformaremos en 
jardineros y nuestro trabajo será cui¬ 
dar una planta un tanto grande que 
crece (si no se le prende ningún bi¬ 
cho), en el centro de la pantalla, y pa¬ 
rece ser un girasol. 

Para lograr esto contamos con tres 
aerosoles, colocados en distintas par¬ 
tes de las paredes que lindan con el 
jardín; uno para cada clase de insec¬ 
to. Si usamos un aerosol equivocado 
para matar, por ejemplo, a los gu¬ 


sanos, no le haremos ni cosquillas. 
Estos abominables bichos, no se con¬ 
tentan con chuparse nuestra planta, 
sino que si además nos tocan, nos 
quitarán vidas. 

Pero no todas son pálidas; algunos 
simpáticos elementos aparecerán en 
las paredes, como regaderas, mata 
moscas, etc., que de recogerlos au¬ 
mentará nuestro puntaje. 

El cambio de nivel se producirá cada 
vez que nuestra plantita florezca, pre¬ 
sentando a nuevos personajes malig¬ 
nos. 

Los movimientos del jardinero están 
controlados por las siguientes teclas; 
Q izquierda 


W derecha 
E abajo 
R arriba 
T rocío 

El menú de comienzo presenta las si¬ 
guientes opciones: 

1 un jugador 

2 dos jugadores 

3 teclado 

4 Kempston joystick 

5 comienzo 

Es un juego en el que están muy bien 
aprovechados los 16 K disponibles. 
Tiene un desarrollo gráfico y de mo¬ 
vimientos muy bueno, sonidos acep¬ 
tables. y se ha logrado un buen nivel 
de adicción. 





MATCH 

POINT 

ORDENADOR: TK 90/CZ2000 Spectrum 
SOPORTE: Cassette 
CLASE: Juego 
CONFIGURACION: 48 K 


Si no nos gustan los grandes torneos 
de tenis, demos vuelta la página, pues 
éste es uno de los mejores progra¬ 
mas de simulación de juegos tradi¬ 
cionales que existe en el mercado ar¬ 
gentino (por lo menos). 

Con la opción de jugar contra la má¬ 
quina, o versus un amigo, este soft 
muestra todas las posibles combina¬ 
ciones de opciones que se pueden 
efectuar, en el menú de comienzo. 
Las opciones separadas por grupos 
son; 

Cuartos de final 
Serr.i final 
Final 

Exhibición 
Un jugador 
Dos jugadores 
Un set 
Tres sets 


Cinco sets 
Sinclair joystick 
Kempston joystick 
Teclado 

Por medio de la tecla BREAK elige 
uno de los grupos anteriores y con el 
0 una de las tres opciones de ese sub¬ 
menú, para luego comenzar el juego 
pulsando ENTER. 

La pantalla nos da una visión de fon¬ 
do y un poco elevada de la cancha. 
Nuestro nombre y el del adversario 
aparecen junto a los contadores de 
Game, Set y Puntos, frente a nuestra 
ubicación. 

Este juego cumple con todas las re¬ 
glas del tenis actual, y también nos las 
hace cumplir. No hay que preocu¬ 
parse por no tener un buen revés o 
saque potente, pues aquí seremos ex¬ 


pertos en estas cosas: la dificultad 
radica en correr detrás de la pelotita y 
por supuesto pegarle. 

Tampoco debe desvelarnos la idea de 
que la pelota se cuelgue en la red. 
pues un enanito muy simpático de 
piernas rápidas, la recogerá muy 
amablemente. 

Un público enardecido seguirá muy 
atentamente el juego: no nos deje¬ 
mos distraer... 

Solamente tres cosas no fueron pre¬ 
vistas por sus programadores; no po¬ 
demos usar vincha, ni arrojar la ra¬ 
queta y no nos harán parte del Jet 
Set. 

Por lo demás, podrá tener un lúcido 
juego de fondo, hacer hermosos glo- 
bitos y todos los chiches clásicos de 
este juego (si puede...). 
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Fñmasas 

Les presentarnos los datos necesarios para crear los personajes 
más conocidos de los juegos de manera que los puedan incorpo¬ 
rar a sus programas. Los gráficos están incluidos en instruccio¬ 
nes DATAs de 8 bytes de longitud. Así aparecerán desde los inva¬ 
sores espaciales hasta el famoso “Pac-Man” 


Presentamos aquí una serie de DA* 
TAs cuyos números han de repre¬ 
sentar (en la zona de gráficos defini¬ 
bles por el usuario) a algunos de los 
personajes y protagonistas, de los vi¬ 
deo-juegos más famosos. 



Les acercamos también algunos grá¬ 
ficos, que sin ser tan monstruosos, 
pueden despertar su imaginación. 
Cualquiera de estos DATAs revelará 
su identidad, si le asociamos un pro¬ 
grama simple: 

10 FOR F=0 TO 7; READ A 
20 POKE USR “A” +F,A 
30 PRINT AT 10,10;"A" 

40 NEXTF 

Comenzamos entonces con los acto¬ 
res del Space Invaders: 

DATA 129,90,60.90,60,102,153,195 
DATA 129,66,60,219,165,24,36,195 
DATA 129,102.60,255,90,255,129, 
231 

DATA 60,126,219,219,255,126,66, 
102 

Estos “invasores” se presentan en for¬ 
ma estática. Los siguientes nos per¬ 
mitirán hacerlos mover, imprimiendo 
la primer versión del mismo, y sobre¬ 
imprimiendo su segunda versión, re¬ 
pitiendo este proceso alternativamente. 
DATA 60,126,235,235,255,126,36, 
231 

DATA 60,126,215,215,255,126,66, 
102 

DATA 66,36,189,173.255.60.36.231 



DATA 36,36,60,247,189,189,36,36 
DATA 129,189,189,173,239,60,36, 
231 

DATA 231,165,189,181,52,255,129, 
231 



M ESAS PARA COM PUTAP 


Primer programa ordenador compatible con todas 
las computadoras personales: Títulos COMMODORE 
SINCLAIR - VIDEO JUEGOS 

SECRETER COMPUTER desamable 


Guarda la computadora y 
los accesorios de trabajo. 

FABRICA Y VENTAS: 


ON1RL 


LAMBARE 865 (1185) 
88*5868 / 89-0558 


modelo cerrado 


disponibles 
para comerciantes. 


ENVIOS AL INTERIOR CONTRA GIRO O CHEQUE A NOMBRE de YONIAL 
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DATA 0,24,60,90,126.24,36,90 
DATA 60.90.126,60,24,36,90,0 
DATA 198,34,20,42,28,34,17.230 
DATA 99,68,40,84,56,68.136.103 

Lo que sigue es la representación es¬ 
tática y en movimiento del “Spacey”, 
platillo volador bien conocido por los 
fans del Space Invaders. 

DATA 60,126,255.170,170,255,126, 
60 

Movimiento hacia la izquierda: 

DATA 3,7,15,10,10.15,7.3 

Movimiento hacia la derecha: 

DATA 192,224,240,160,160.240, 
224,192 

Ahora veremos tres “Spaceys” (de 
dos caracteres de largo cada una). Un 
buen efecto de movimiento se logra¬ 



rá imprimiendo cada nave en el or¬ 
den del listado, especialmente si se 
hace con velocidad. 

Nave 1: 

Izquierda: DATA 63,127,255,73.73, 

255.127.63 

Derecha: DATA 252.254.255,36,36, 

255.254.252 
Nave 2: 

Izquierda: DATA 63,127.255,36,36, 

255.127.63 

Derecha: DATA 252,254.255,146, 

146.255.254.252 
Nave 3: 

Izquierda: DATA 63,127,255.146, 

146.255.127.63 

Derecha: DATA 252,254,255,73. 

73.255.254.252 

Las que siguen son algunas bases de 
misiles: 

DATA 24.24,24,60.126,255.219.219 
DATA 0,24,24,24,255,255,255,255 
DATA 24,24,24,60,255,255,255,0 
Izquierda: DATA 1,1,7,9,31,127,255, 
255 


Derecha: DATA 0,0,192,32,240,252, 
254,254 

Aquí van algunas naves espaciales 
que nos ayudarán en la hora de ele¬ 
girlas, para nuestros programas. 
Izquierda: DATA 0.252,32,33,18, 
127,15,1 

Derecha: DATA 0,0,240,8,4.228, 
255,248 

Izquierda: DATA 31,32,79.255,255. 
79,32,31 

Derecha: DATA 0,0,60.235,235,60, 

0,0 

Izquierda: DATA 0,248,32,16,15, 

63.15.3 

Derecha: DATA 0,0,0,224,16,8,207, 
248 

Naves espaciales del estilo “Asteroid", 
son las que siguen. Estas están basa¬ 
das en dos diseños, uno horizontal/ 
vertical, y e! otro diagonal 
Vuelo noroeste:DATA 192,176,76, 

67.44.40.16.16 

Vuelo oeste: DATA 0,7,25.98,132. 
98,25,7 

Vuelo sudoeste: DATA 16,16,40. 

44.67,76,176,192 

Vuelo sur: DATA 198,170,146.68, 

68.40.40.16 

Vuelo sudeste: DATA 8,8.12.44, 

194.50.13.3 

Vuelo este: DATA 0,224.152,70, 
33,70,152,224 

Vuelo noreste: DAT A 3,13.50,194, 
44,12,8,8 

Vuelo norte: DATA 16,40.40,68,68, 
146,170.198 

Los siguientes son los datos corres¬ 
pondientes a tres aviones de dos ca¬ 
racteres de largo. 

Un Jet: 

Izquierda: DATA 0,0,224.112,120, 
255,60,15 





Derecha:DATA 0.0.0,0,224,248,30. 
248 

Uno a hélice: 

Izquierda: DATA 192.192.227,158, 
127,0,0,0 

Derecha: DATA 0,0,96,248.252. 
224,240,112 



Un Jet sesgado: 

Izquierda: DATA 14,199.224,255. 
127.1,0,0 

Derecha: DATA 0.0.96,248,252, 
224,240,112 

Las siguientes ocho listas de datos, 
corresponden al gráfico de un avión, 
en cada una de las posiciones de la 
brújula o compás. 

Norte: DATA 8,8.28.62.127.8,8.28 
Noreste: DATA 1,2.124.60.28.172. 
68,32 

Este: DATA 16.24.156.255.156.24. 
16,0 

Sudeste: DATA 32.68.172.28,60. 
124,2,1 

Sur: DATA 28.8.8.127.62.28.8.8 
Sudoeste: DATA 4.34.53.56.60.62, 
64,128 

Oeste: DATA 8.24.57,255.57.24.8. 
0 

Noroeste: DATA 128.64.62,60.56. 
53,34,4 

Si usted es un amante de los juegos 
de guerra y tiene la idea de hacer su 
propia batalla por tierra y agua, aquí 
le ayudamos con algunos tanques y 
barcos de combate. 

Izquierda: DATA 0.16,31,31.63.127. 
63,0 

Derecha:DATA 0.0,252,0.240.248, 
240.0 

Izquierda: DATA 0.0,63.0.15,31.15. 
0 

Derecha: DATA 0,8,248,248.252. 
254,252.0 

Izquierda: DATA 0,0,2.115.23.255, 

126,63 

Derecha: DATA 192.192,224.239. 
236,255.255.254 

Izquierda: DATA 3.3,7.247.55.255. 
255.127 

Derecha: DATA 0.0.64.204.232. 

255.254,252 

Y si piensa en tener una vista supe¬ 
rior del campo de batalla, nada me¬ 
jor que tener los ocho movimientos 
de su tanque, como lo vimos previa¬ 
mente con los aviones. 
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DATA 8,73,73,93,127,93,65,65 
DATA 33,66,188,60,60,29,2,4 
DATA 254,16,56,63,56,16,254,0 
DATA 4,2,29,60,60,188,66,33 
DATA 65,65,93,127,93,73,73,8 
DATA 32,64.184,60,60,61,66,132 
DATA 127,8,28.252,28,8,127,0 
DATA 132,66,61,60,60.184,64,32 
Como un jueguito de estos sin bom- 
bas no es un juego, aquí van un par 
de ellas: 

DATA 0,66,189,239,239,189,66,0 
DATA 54,28,8,28,62,62,28,8 
Tampoco nos olvidamos de los que 
se deleitan con las carreras automo¬ 
vilísticas, aquí les presentamos un 
hermoso fórmula uno, de cuatro ca¬ 
racteres, dos superiores y dos infe¬ 
riores. Comenzamos con los prime¬ 
ros: 

Izquierda: DATA 31,31,4.5,55,59, 
55,6 

Derecha: DATA 248,248,32,160, 

236,220,236,96 

(Parte inferior) 

Izquierda: DATA 6,6,7.19,31,19,1,7 
Derecha: DATA 96,96,224,200,248, 
200,128,224 

Izquierda: DATA 224,159,119,239, 


239,119,159,224 

Derecha: DATA 28,242,190,191, 
191,190,242,28 

DATA 0,66,189,239,239,189,66,0 
DATA 102,153,239,223,223,239, 
153,102 

Y como no podía faltar, presentamos 
al señor PACMAN junto a sus alimen¬ 
tos preferidos. 

Parámetro derecho: 

DATA 60,127,252,240,240,252,127, 
60 



Pacman, arriba: 

DATA 66,66,231,231,255,255,126, 
60 

Parámetro izquierdo: 

DATA 60,254,63,15,15,63,254,60 
Pacman, abajo: 

DATA 60,126,255,231,231,66,60 
Pacman con la boca cerrada: 
DATA 60,126,255,255,255,255,126, 
60 


F 3íitci $m ¡i* 

DATA 56,124,214,214,254,254,170, 
170 

Por último veremos las frutas con que 
se alimenta este animalejo. 

Frutilla: 

DATA 24,82.247,255.255,126,60, 
24 

Frambuesa: 

DATA 4,8,8,86,171,213,106,60 

Cereza: 

DATA 8,8,20,20,34,99,243,96 
Durazno: 

DATA 44,110,231,247,247,247.102, 
44 

Banana: 

DATA 2,3,7,14,30.124,248,0 
Ciruela: 

DATA 8.16,24,60,124,62,60,24 
Manzana: 

DATA 24,82,255,255,255,255,126, 
36 

Esperamos que el desfile de estrellas 
que acabamos de presenciar, les ha¬ 
ya atomizado las neuronas. ¡A pro¬ 
gramar se ha dicho! 


DYNACOM® SRL ARGENTINA 


CONSOLA 



INDUSTRIA ARGENTINA 


FABRICANTES DE JOYSTICKS 


• MSX 

• TIMEX SINCLAIR 2068 

• COMMODORE 64-128 - VIC 20 

• ATARI 2600 - 400/600 ■ 800 - 1200 

• TK 83-85- 90 

• TEXAS TI 99/4A UNICO SIN BLOQUEOS 

• NUEVO: 

INTER FACE Y JOYSTICK SPECTRUM 
(SONIDO - AUTODISPARO - LED Y RESET) 

• JOYSTICK CON AUTOFIRE (OPCIONAL) 


EN STOCK: VIDEO JUEGO DYNACOM SISTEM APTO 

PARA CASSETTES COMPATIBLES CON: 

• SISTEMA ATARI 2600 

• CASSETTES DE JUEGO ; PAL N ■ COLOR (100 TITULOS) 
KEYBOARD BASIC 

PARA APRENDER COMPUTACION CON NUESTRO VIDEO JUEGO 


EN VIDEO JUEGO COMPATIBLE CON CUALQUIER CARTUCHO APTO PARA ATAR) CX 2600 
REPRESENTANTES ■ LICENCIATARIOS Y FABRICANTES EXCLUSIVOS DE LOS PRODUCTOS 
DYNACOM® PARA ARGENTINA - CHILE - COLOMBIA - ECUADOR - PARAGUAY * SOLIVIA. 
ZONAS DISPONIBLES A DISTRIBUIDORES DEL INTERIOR Y/O EXTERIOR DE LA 
REPUBLICA ARGENTINA. 


TELEX BACOP-AZ 21034 - PANAMA 910 • CP 1195 - TE. 86-9855 


PROXIMAMENTE COMPUTADORAS DE 64 a 256 KS. 
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COMP.: TS 2068/SPECTRUM/TK90X 
CIAS.: COMERCIAL 
AUTOR: Fabio Tasoh'n 


El siguiente programa tiene por finalidad 
calcular ¡os intereses devengados según 
los movimientos realizados en nuestra 
caja de ahorros, pudiendo realizar un 
máximo de 5 extracciones en el mes. 


5500 * 5510 Rutina de error de ex¬ 
tracciones 

5800 - 6000 impresión de intereses 

Variables úiiles 


Estructura del programa 

30 - 70 Presentación 

75 - 110 Ingreso de datos 

800 - 2000 Movimientos del mes 
3000 * 3040 Cálculo de intereses 
3500 Rutina de sonido 
4000 - 4499 Saldo negativo 
5000 - 5020 Rutina de gráficos 


A$: Nombre del titular 

TA: Valor de la tasa anual 

B$: Nombre del mes 

MES: Cantidad de días del mes en curso 

D(): Número de día en curso 

l(): Importe correspondiente al día 

INT: Intereses 

S(): Monto 




30 CLEAR 

31 PQKE 23009,30 

32 BURDER 6 

40 FLASH i: PRINT AT 2,6;"* CA 
JA DE AHORROS *": FLASH 0 

43 REM ???? PRESENTACION ????? 

45 PRINT AT 5*0;"Este programa 
calcula los inte* reses devenga 
dos en e¡ mes según Jos movimient 
os realizados* Tenga present 

e que no podra ha- cer mas dé ci 
neo extracciones enel mes debido 
a que se trata de una Caja de A 
horros Común« 

Al ingresar e 
1 mes deberá colorear la primer 
letra en mayusculay a los impon 
tes de extracc i cmesdebera antepo 
ner el signo menos*" 

50 G0 SUB 3500: PRINT PAPER 6; 
AT 21,O?"Pulse una tecla": PAUSE 
0 

60 C-LS 

70 CLEAR : FLASH i: PRINT AT 4 
( 6í“* CAJA DE AHORROS #": FLASH 
0 

73 REM ???? TOMA DE DATOS ???? 

75 INPUT "Titular ? "¡a*: PRIN 
T AT 8,2¡"Titular: "¡a*: GÜ 

SUB 3500 

90 INPUT "Tasa anual 7 "?ta: P 
RINT AT I2 f 2¡ «Tasa anual ; "i tai 
■ %": GO SUB 3500 

85 INPUT "Mes 7 "ib* 

86 LET mes=0 

87 IF b*~*Enero" OR b*="Marzo" 
OR b*-"Mayo* OR b*="Julio" OR b 

^■Agosto" OR b*= "Octubre" OR b* 
=*Diciembre* THEN LET mes=31 

89 IF b***Abril rt OR b*“"Junio" 
OR to**"Setiembre" OR b*=*Septíe 
mbre“ OR b*="Novíembre■ THEN LET 
mes “30 

91 IF Febrero bisiesto" TH 

EN LET mes*29 

92 IF Febrero" THEN LET me 

s*28 

94 IF mes=0 THEN BEEP -8,*15: 


GO 10 85 

96 PRINT AT ió,2i"Mes : 

"íb*I GO SUB 3500 
98 PRINT PAPER 6iAT 2l s 0j"Pul5 
e una tecla": PAUSE 0 
100 CLS 

110 GO SUB 5000 

800 REM ???? MOVIMIENTOS ????? 
900 PIM d(31) 

920 DIM iÍ3I) 

930 DIM SÍ311 
940 LET c=0 
1000 FOR n=1 TO mes 

1050 INPUT *Di a ? "|d(n> 

1051 IF dínHO OR díní>mes THEN 
BEEP 0*8,-15: GO TO 1050 

1052 IF d fn)=0 THEN GO TO 3000 
1055 IF n=I7 THEN COPY : CLS : G 
0 SUB 5000 

1060 IF r>< 17 THEN PRINT AT n + 3, i 

id (n): GO SUB 3500 

1070 IF n >=17 THEN PRINT AT n-13 

,lfd íftl: GO SUB 3500 

1200 INPUT "Importe ? " j i í n) 

1202 IF iínXO THEN LET c“c + l 
1205 IF c^6 THEN GO TO 5500 
1210 IF i f n) >0 AND n<17 THEN PRI 
NT AT n + 3,6íi{n): GO SUB 3500 
1220 IF i(n J <0 AND n<17 THEN PRI 
NT AT n+3, 15¡Un>: GO SUB 3500 
1240 IF it n J >0 AND n>*17 THEN PR 
INT AT n-13,é|I(n): GO SUB 3500 
1260 IF i (n)<O AND n> = 17 THEN PR 
INT AT n-13, 151 Un): GO SUB 3500 
1300 GO SUB 4500 

1310 IF s í n í >0 AND n<17 THEN PRI 
NT AT n + 3, 25 í s(n) 

1315 IF sin)>0 AND n)=17 THEN PR 
INT AT n-13,25J sin) 

1320 IF s«n><0 THEN GO TO 4000 
2000 NEXT n 

2980 REM ? INTERESES ????? 

3000 LET in t =0 

3005 FOR n=1 TO raes 

3010 IF d (rt + 1) =0 THEN LET d(n+l) 

•mes 

3020 LET int=int+<s(n)*{d(n+l)-d 
< n > ) *ta)/36500 


3030 IF d (n +1)=mes THEN GO TO 58 
00 

3040 NEXT n 

3500 BEEP .05,15: BEEP .05,15: B 
EEP .05,15: RETURN 
3980 REM ???? SALDO ROJO ???? 
4000 FLASH 1: PRINT PAPER 2; INK 
7; AT 10,4í"** SALDO EN ROJO 
**“;AT 11,4;“ NO COMPATIBLE 

"{AT 12,4;“CON CRITERIOS CO 
NTABLES": FLASH 0 
4010 BEEP .8,-15: COPY : PAUSh 1 
000: CLEAR : GO TO 70 

4499 GO TO 6000 

4500 LET s(n)-iU> + i<2) + i(3) + i(4 
) + i (5) + i< 6) + i<7)4j(8 > + i(9) + j (10 > 
+ i (11) + j (12)+i(13)+i(14)+ i(15) + i 
(lóí+1(17)+i(13)+i (19)t1(20)+i (2 
1)+i(22)+i(23)ti(24)♦i(23)+i(26) 
+ ¿ (27)+i(28)+i(29)*i(30)+i (31) 
4502 RETURN 

4980 REM ???? GRAFICO ???? 

5000 PRINT AT 0,0;" CAJA 

DE AHORROS "|AT 1,0;" TI 

TULAR: “!a*;AT 2,0;“ DIA DEPOSIT 
O EXTRACC. SALDO 
5010 DRAW 0,175: PLOT 255,0: DRA 

w 0 , 175 : plot o,o: draw 255 , 0 : p 

LOT 40,0: DRAW 0,155: PLOT 112,0 
: DRAW 0,155: PLOT 184,0; DRAW 0 
, 155 

5020 RETURN 

5490 REM ???? ERROR EXTRAC. ??? 
5500 FLASH 1: PRINT PAPER I; INK 
7;AT 10,4!"OPERACION NO ADMITID 
A*;AT 11,4¡"MAXIMO 5 EXTRACCI0NE 
S": FLASH O 

5510 BEEP .8,-15; COPY : PAUSE 1 
000: CLEAR : GO TO 70 
5790 REM ??? IMPRIMIR INTERES??? 
5800 FLASH 1: PRINT PAPER 3; INK 
7¡AT 20,3;”Interes : A “¡int;“ 
FLASH 0 

5005 FOR h=-30 TO 30 STEP 10: BE 
EP .08,h: NEXT h 
5810 COPY : PAUSE 1000: CLEAR : 
GO TO 70 

6000 COPY í PAUSE 1000: CLS : GO 
TO 70 
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COMP: CZ 1000/1500 TK 83/85 
CONF.: 1 K 


CÍAS.: JUEGO 


Una vez tipeado y ejecutada la instruc¬ 
ción RUN. el programa nos preguntará 
por el Skill {nivel de dificultad) que pue¬ 
de variar de uno a 29. 

La nave espacial es posicionada en una 
de las muchas columnas de la pantalla. 
Las estrellas aparecen a la derecha de 


ésta, moviéndose a la izquierda. Usted 
puede dispararles con la tecla 6' hacia 
abajo y con la tecla 7’ hacia arriba. 

Los caracteres gráficos de la línea 40 se 
obtienen con las teclas ‘Q’, ‘G’ y ‘W’ 
en modo gráfico. 

El de la línea 100 es un Y invertido. 


5 

5 =0 

10 

~RINT 1 5KIL—' 

20 

INPUT H 

35 

p L * 

POP M-I 70 10 

40 

PRIMT O - R +2 . ' -jSk" 

50 

_5T 6=1NT ÍRND*1SJ+1 

R 0 

FQP C=0 TQ 30 

70 

PRINT B,C;" +’ 

60 

PPINT R7 i ht3, 

90 

__ tT 5-5+ INKE Yf = "7 ’' * ^ (INh 

1= 6 


100 

RPINT P7 5 *R + 5 l ,J B" 

_ w 

NEXT C 

120 

NEXT M 

130 

IF H>10 T i-i EN PPINT ‘FIN 


Variables útiles 

S: contador de la fila de la bala. 

A: número asociado a la columna de la 
nave, variado según el nivel de dificultad. 
Binúmero de fila de la estrella (aleatorio). 
C montador de la columna de la estrella. 
M: contador de intentos. 

Estructura del programa 

■k 

5 - 30 : Entrada del nivel de dificultad 
35 - 130 : Lógica simple del programa. 


* 
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MUSIC MA 



HIÑE 


COMP.: CZ 1000/1500; TK 83/85 
CONF.: 1 K 
CÍAS.: UTILITARIO 


Este programa es el más frivolo de los 
utilitarios que jamás se han publicado. 
Usa los comandos FAST y SLOW para 
generar una benévola escala musical, a 
través del parlante del televisor. 

El sonido logrado es el bajo profundo 
asociado generalmente, con e! que fluye 
de la cripta del Conde Drácula, cuando 


toca el "Rock de la media noche* en su 
órgano. 

La escala es generada por las teclas del 1 
al 6. 

Sintonice el dial suavemente hasta escu¬ 
char ese tenebroso susurro, suba el volu¬ 
men y sacuda su espíritu al son de un 
Vampiro Romantic Rock. 




1 

PE*- 1 MUSIO 

K R C h 

iXNE 



70 

GOTO COGE 

■< i < i 

w 




A -B 

+ ± 

IF INKEY $ = ' 2 " 

THEN 

GOTO 

CÜD 


e 

FRST 





50 






E "i “ 






6 

5 L O W 





Si 

FRST 





« “■ C- 

ják ■ h-p 

IF INKE/$="3" 

THEN 

GOTO 

C 0 D 


25 

IF INKE/í 


T HEN 

GOTO 

C0O 

63 

=i L 0 U 





£ M Q" 





E 

"C 

»i. 





90 

SLOW 





173 

IF INKEY S= ' S 11 

THEN 

G U I U 

UhL 


27 

1 “ i n r. E' ■ $ 

_ 1 l j M 

= 4 

THEN 

G OT O 

V h L 

21 

SLOW 





¿00 

■' 




, i 

i 0 

i-1- 





110 

FRST 





180 

SOTO CODE §* 





23 

IF IN+E $ 

— C * 

T HEN 

0 07 O 

O 0 D 

120 

IF INKEY$ 

_1 *■ - M 

T ri£N 

GOTO 

COD 

200 

FhS^ 




TT 

fi 

ib 





E * 

L 





210 

FRST 





59 

I er IN+.E 3 

- 5” 

THEN 

: 

UhL 

125 

IF IN K E Y í 


T HEN 

GOTO 

C 0 D 

220 

SlüW 




1 

20 

0 " 





5 "C 

L 





■*! ^ ■* 

SLOW 





30 

■jOT Q l C _ E 

■. n 




~ ,=. 

IF INKEY$ 

“ 1 ' 5 1 1 

7HEN 

■GOTO 

C ü D 

— , O 

wCC 

z L 0 U 





40 

Fh£" 





5 P5 

••b 





253 

SLOU) 





41 

5-LOU 





157 

15 INKEY' % 

= 6" 

THEN 

GOTO 

URL 

222 

SLOW 





50 

*-LÜ W 





"20 

3" 





230 

FRST 





60 

PR5T 





130 

GOTO URL 

"80 " 




240 

IF INKE $=* i" 

THE N 

GOTO 

C QD 1 


65 

I ” IMKE i 

_ —. I* 1 

THEN 

GOTO 

CQD 

140 

rH'l 





E ¡ " 





— 

1 

M 





150 

SLO -i 





241 

IF INKEY* = 3" 

TMEN 

i u 

C 0 C 1 


F, T 7 

IF INKEY* 

= 4" 


G0-7Q 

URL 

152 

SLDu 





E "C" 





% 

80 

11 





1 

-te. 

5LOW 





242 

IF INKEY*= "47‘ 

THEN 

4 uT 0 

URL 


63 

IF inkEyi 

_ — 1 L 

THEN 

GOTO 

000 

154 

SLOW 





30” 





C 

l i F-»’ 

B « 





160 

FRST 





243 

IF INKE Y*="5“ 

THEN 

GOTO 

COD 


hi 

IF inkeys 

= ■■5" 

TMEN 

GOTO 

URL 

170 

15 IMKE * $ 

= ' 4" 

TMEN 

GOTO 

URL 

E "S 






20 

0" 





"80 






230 

G : J T Q U m i— 200 





































COMP: CZ 1000/1500; TK 03/05 
CONF.: 1 K 
CIAS.: EDUCATIVO 


Estos son en realidad dos programas des¬ 
tinados al cálculo de los factores que 
componen un número determinado. 
Ambos son de seguimiento simple y fácil 
manejo. El primero y más corto de ellos 
cumple con la tarea de calcular todos los 
posibles factores del número consultado. 
El segundo tiene como misión calcular 


5 

REM FACTORES PRIMOS 


20 

INPbf A 



30 

PRINT R ; " m " ; 



40 

LET 8=2 



50 

IF fi/B <> INT (R/B) 

THEN 

GOTO 

60 




60 

GÜ5UB 190 



70 

GOTO 50 



30 

FOR 8=3 TO A S"FEP 

2 


90 

^DR C=3 TO S-l STÉP 2 


100 

IF E/C-INT IB/O 

THEN GOTO 

150 




110 

NEXT C 



120 

IF fl/go INT í H /B ) 

THEN 

GOTO 

150 

130 

GG6U8 190 



140 

GOTO 120 



150 

NEXT B 



150 

P JKE 16395 ■ f-PEEK 

163963 

-1 

170 

PRINT " . M 



160 

RUN 



190 

PRINT 5 



200 

LET m-H/6 



210 

PETIJRN 




solamente los factores primos que com¬ 
ponen a dicho número. 

Si por los avatares del destino, o por sufrir 
alguna de las diez encamaciones de 
Vichnu’ (si saben quién es por favor infór¬ 
mennos), se ha olvidado de lo que es un 
número primo, le recordamos que son los 
que cumplen ser divisibles solamente por 
sí mismos y por la unidad. El número 1. 
aunque cumple con el legado anterior, 
queda excluido de esta familia de núme¬ 
ros. 

Ejemplos: 2, 3, 5, 7, 11, 13... 


M DFM + 



PE 
RE M 

--’EM * wPlCULQ DE TODOS * 

3 RE M * LQ5 FACTORES DE * 

_ 3 REM * UN NUMERO * 

i 11 3 REM 

S? - ~ ' 

20 *nPUT h 
30 PRINT P; 

40 POP 6 i TQ 1 5TEP -1 
30 IF fl/BsINT IR/BJ THEN PRINT 

i I B g B 

6© NEXT B 
70 PRINT " . " 

80 PUN / / 





COMPUESTO 


COMP: CZ 1000/1500 TK 83/85 
CONF.: 1 K 
CIAS.: COMERCIAL 


Si detestamos las cuentas que llevan cal¬ 
cular el interés compuesto, este programa 
será para nosotros. 

Hará trabajar a la computadora automá¬ 
ticamente bajo las reglas del interés com¬ 
puesto, una vez que le hayamos informa¬ 
do sobre el monto inicial, la razón del in¬ 
terés, y el número de años a considerar. 
Está también preparado para resolver 
problemas de interés simple. 

Es un programa que será de gran ayuda 
en el trabajo hogareño. 


5: CLS 

10: PRINT “MONTO INICIAL:” 

20: INPUT P 

30: PRINT “TIEMPO:” 

40: INPUT T 

50: PRINT “RAZON ANUAL” 
60: INPUT R 


70: PRINT 

80: PRINT “ENTRE ““IS”” PARA INTE 
RES SIMPLE” 

90: PRINT “ENTRE ““IC”” PARA INTE 
RES COMPUESTO” 

100: INPUT A$ 

105: CLS 

110: IF A$ —‘IS” THEN GOTO 150 
120: LET 1 =P*((1 +R/100)**T) -P 
130: GOTO 200 
150: LET I =fP*R*T)/100 
200: PRINT “INTERES =A”;1 
202: PRINT 

205: PRINT “TOTAL =A” ] 4P 
206: PRINT 

210: PRINT “ESO ES TODO? (S/N)” 
220: INPUT B$ 

230: IF B$ =*‘N” THEN RUN 

Variables importantes 

P: Monto inicial. 



■ |pl¡§lb« 




T: Tiempo en anos. 

R: Razón anual. 

A$: Variable de control. 

B$: Idem A$, 

I: Interés calculado. 

Estructura del programa 

5-70: Entrada de datos descriptivos. 
80-110: Opción de un tipo de interés. 
120: Cálculo del interés compuesto. 
150: Cálculo del interés simple. 
200-230:0btención de resultados y op¬ 
ción de nuevo cálculo. 


# 
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iCHA TECJVfC 



Examinaremos el significado y la utilización de cada 
uno de los pines de la unidad central de proceso Z-80, 
que es el corazón de las máquinas Sinclair, CZ, TK y 
compatibles, Esto facilitará la comprensión y segui¬ 
miento de circuitos electrónicos cuya lógica digital se 
base en este microprocesador. 



Dentro del mundillo de las unidades 

centrales de proceso, con ocho bits 
de datos, y dieciseis bits de direccio¬ 
nes, presentamos al Rey de los pro¬ 
cesadores. 

Con más de seiscientas instrucciones, 
capacidad de direccionar sesenta y 
cinco mil quinientos treinta y seis di¬ 
recciones de memoria externa, con¬ 
trolar hasta doscientos cincuenta y 
seis periféricos de modo standard, y 
apoyado por sus primos, el Z-80 PIO 
(Parallel Input/Output), Z-80 CTC 
(Counter Timer Circuit), Z-80 DMA 
(Direct Memory Access), y los Z-80 
SIO y Z-80 SIO/9 (Serial Input/Out- 
put); el Z-80 CPU no es una tontería. 
Por ser, además, el corazón de la lí¬ 
nea Sinclair, entre otras, considera¬ 
mos interesante saber algo sobre el 
control que nos ofrece de sí misma, 
esta cucaracha de cuarenta patas. 
Justamente, apoyándonos en la fi¬ 
gura, veremos une lista que nos acla¬ 
rará el significado y utilización de ca¬ 
da una de esas patas. 

FIGURA 

Comencemos con la listita entonces. 
Nombre: A0-A15 
Pines: 1 a 5, y 30 a 40. 
Descripción: bus de direcciones de 
16 bits, 


Nombre: D0-D7 
Pines: 7 a 10, y 12 a 15. 
Descripción: bus de datos bidirec- 
cional de 8 bits. 

Nombre: O/CLOCK 
Pin: 6 

Descripción: entrada de pulsos del 
reloj que controlará la velocidad de la 
CPU. 

Nombre: Vcc 
Pin: 11 

Descripción: alimentación del chip, 
su valor es de +5 volts. 

Nombre: INT (negado) 

Pin: 16 

Descripción: (Interrupt Request). 
Cuando a esta línea se le manda un 
bajo (0 volt), comienza un ciclo de in¬ 
terrupción siempre que el indicador 
de interrupciones (flag 11 í : ) haya si¬ 
do seteado, por software. De otra 
forma esta línea es ignorada. 

La razón de que el nombre figure ne¬ 
gado, es que la línea al igual que 
otras, necesita un "bajo" para ser acti¬ 
vada. 

Nombre: NMI (negado) 

Pin: 17 

Descripción: (Nonmaskable lnte- 
rrupt). Cuando a esta línea se le en¬ 
trega un nivel bajo de tensión, provo¬ 
ca que el Z-80 detenga el programa 
que está ejecutando y efectúe un Cali 


o llamada a la posición de memoria 
66h (hexa). Este tipo de interrupción 
no enmascarable, no es posible de 
evitar por software. 

Nombre: HALT (negado) 

Pin: 18 

Descripción: por medio de esta se¬ 
ñal el Z-80 indica que ha ejecutado la 
instrucción Halt, esperando que se 
produzca alguna de las dos interrup¬ 
ciones anteriores, antes de que pue¬ 
dan reanudarse las operaciones. 
Nombre: MREQ negado) 

Pin: 19 

Descripción: (Memory Request). Es¬ 
ta iínta manda un “bajo" cuando el 
Z-80 está listo para acceder a una po¬ 
sición de memoria. 

Nombre: IORQ (negado) 

Pin: 20 

Descripción: (In/Out Request). es¬ 
ta línea manda un "bajo" cuando el 
Z-80 está listo para acceder a un pór¬ 
tico de Entrada/Salida. 

Nombre: RD (negado') 

Pin: 21 

Descripción: (Read). Esta línea man¬ 
da un bajo cuando el Z-80 necesita 
leer un dato de una posición de 
memoria o de un pórtico. 

Nombre: WR (negado) 

Pin: 22 

Descripción: (Write). Esta línea 
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manda un bajo cuando el Z-80 nece¬ 
sita “escribir” un dato en una posi¬ 
ción de memoria o en una división de 
Entrada/Salida. 

Nombre: BUSAK (negado) 

Fin: 23 

Descripción: (Bus Acknowledge). 
Esta línea es usada para indicar qué 
datos, direcciones y señales de con¬ 
trol de la CPU han sido desactivados, 
para que una división externa pueda 
ahora controlar estas señales. 
Nombre: WAIT (negado) 

Pin: 24 


Descripción: Al poner un bajo en 
este pin el Z-80 entrará en un ciclo de 
espera, mientras dure este pulso. 
Nombre: BUSRQ (negado) 

Pin: 25 

Descripción; (Bus Request). Esta 
línea es usada para indicarle al Z-80 
que un periférico tomará el control 
del bus de datos y de direcciones. 
Nombre: RESET (negado) 

Pin: 26 

Descripción: Un pulso bajo en este 
pin causa la inicialización de la CPU. 
Nombre: Mi (negado) 


Pin: 27 

Descripción: Esta señal se usa para 
indicar que la CPU realiza el ciclo que 
produce la instrucción Mi, 

Nombre: RFSH (negado) 

Pin: 28 

Descripción: (Refresh). Señal que 
manda el Z-80 para mantener vivos 
los datos en el bus de direcciones 
(RAMs dinámicas). 

Nombre: GND 
Pin: 29 

Descripción: Masa o nivel bajo de 
tensión de referencia. 
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cj ^ W t-J O *— LJ U L 

TKK 
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Al 1 - 
Al 2 ^ 
Al 3 - 



INT 

NMI 


HALT ^ 


MREQ - 
IORQ - 


1 


40 

2 


39 

3 


38 

4 


3/ 

5 


36 

6 


35 

7 


34 

8 


33 

9 

Z-80 CPU 

32 

10 

Z-80 A 

31 

11 

CPU 

30 

12 


29 

13 


28 

14 


27 

15 


26 

16 


25 

17 


24 

18 


23 

19 


22 

20 


21 


Al 0 

A9 

A8 

A7 

A6 

A5 

A4 

A3 

A2 

Al 

AO 

GND 

RFSH 

MI 



1 



BUSR Q 

WAIT 

BUSAK 

WR 

RD 
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ARCHIVO 




Lista de variables. 


S$: Nombre a buscar 
T$: Ciudad a buscar 
N$: Nombre 
A$: Dirección 
C$: Ciudad 

P$: Número telefónico 
Z$: Código Postal 

C HAN GE: puntero de modificaciones 
ENTER: puntero de altas 
LIST: puntero de listado total 
SEARCH: puntero de búsqueda 
SAVE: puntero de grabación 
C: Número de modificación 
Y$: Nombre en modificación 
H$: dirección en modificación 
G$: ciudad en modificación 
L: número actualizado de fichas 


COMP: CZ 1000/1500; TK 83/85 
CQNF.: 16 K 


CLASCOMERCIAL 


Estructura del programa 

10-30/40-49 Inicialización de varia¬ 
bles 


5000-5030 

50-75 

500-570 

1000-1500 


Comienzo del programa 
Menú principal 
Modo de modificaciones 
Modo de altas 


1500-1550 Modo listador 


2000-2166 Modo de búsqueda 
6000-6010 Modo de grabación 


i REM COMIENCE EL PROGRAMA 
ENTRANDO GOTO 35 


10 

DIM 

L í 1 ) 

11 

PIM 

S* i 1,30) 

12 

DIN 

T* í1,303 

13 

DIM 

N* t 100,30) 

i 4 

DIM 

Ai(100,30) 

15 

DIM 

C*t100,25) 

16 

D í M 

p*<100,123 

1** 

DIM 

2 % t100,7) 

?5 

LET 

L=0 

30 

LEI 

N=0 

75 

GOTO 5000 

40 

LET 

CHANGE-500 

42 

LET 

E N T E R = 1 0 0 0 

44 

LET 

LI3T-1500 

46 

LET 

SEARCH=2000 

47 

LET 

SAVE=6000 

48 

LET 

N=L 

49 

CLS 


--50 

PRIMT AT 2,10 í“ 

51 

TAS 

T 

52 

PRINT 

— 54 

PRIMT TAB 5 i"F 


MODIFICACIONES" 

55 PRIMT 

56 PRINT TAB 5 i "PULSE E 
ALTAS" 

5" PRIHT 

59 PRIMT TAB 5 i"PULSÉ L 
LISTAR” 

6C PRIHT 


PARA 


PARA 


PARA 


61 PRINT TAB 5 ?"PULSE S PARA 

BUSCAR* 

62 PRINT 

63 PRINT TAB 5 ; "PULSE ""STOP *" 
PARA TERMINAR" 

64 PRIMT 

65 PRINT TAB 5?"PULSE X PARA 

66 IMPUT B* 

67 IF Bf= M C n TREN GOTO CHANGE 
6S IF “B* THEN GOTO ENTER 

69 IF B$="L." THEN GOTO LIST 

70 IF B*=*S" THEN GOTO SEARCH 

7 1 IF Bí‘= " STOP" THEN STOP 

72 IF E$="X U THEN GOTO SAVE 
75 GOTO 49 

113 PRINT 
500 CLS 

510 PRIMT AI 1,12í"MODIFICAGIO 

MES* 

512 PRINT 

513 PRIMT TAB 5 ?"ENTRE EL NUME 
ERO A CAMBIAR" 

514 IUFUT C 

515 CLS 

51 6 PRIMT AT 2,QiN51C,l 10 30) 

517 PRINT A$ÍC,Í TO 30) 

513 PRINT C$tC,1 TO 25) 

519 PRINT 2 íMC, 1 TO 

520 PRIMT P$<C,1 TO 12) 

524 PRINT AT 10,Si"ENTRE EL NOM 
MERE CORRECTO* 

525 IMPUT I* 

530 LET NSÍC,i TO 30)=1$ 


535 PRINT AT 10,5;“ENTRE LA DIRE 
ECCION CORRECTA" 

540 IMPUT 

545 LET A*<C,i TO 3Q)=H$ 

550 PRIMT AT 10,Si"ENTRE LA CIUD 
AD “ 

555 IMPUT G* 

560 LET CSÍC,i TO 25í^G$ 

562 FRINT AT 10,5 i"ENTRE EL CQDI 
GO POSTAL CORRECTO" 

563 IMPUT Z*tC) 

564 PRINT AT 10,5i"ENTRE EL NUME 
RO TELEFONICO CORRECTO" 

565 IMPUT PítC) 

570 GOTO 49 

1000 CLS 

1010 FOR X=N+1 TO 100 
1015 IF X=IQQ THEN GOTO 1142 
1020 LET L = X 
1030 CLS 

ALTAS 


1040 

PRINT 

AT i,10 

1050 

PRINT 

AT 2,10 

TRABA 

i fue; 

*; X-l 

1052 

PRINT 


1055 

PRINT 

"NOMBRE 

1060 

IMPUT 

Ní ÍX) 

1070 

PR I NT 


1075 

FRI NT 

"DIRECC 

i 080 

IMPUT 

A* f X ? 

1090 

PRINT 


1095 

PRINT 

h CIUDAD 

1 100 

IMPUT 

C^ ÍX) 

1 105 

PRINT 



Páff. 14 











































































1 i 07 

PRIMt "CODIGO 

postal: * 

2034 

IF Vi= M N" THEN GOTO 2050 

2165 

PRINT 



1108 

INPUT ZSÍXÍ 


2036 

PRINT "ENTRE EL NOMBRE DE L 

2166 

GOTO 2041 


1109 

PR I NT 


A CIUDAD" 

5000 

PRINT 

AT 2,01"************* 


1113 

PRINT "NUMERO 

TELEFONICO: 11 

2037 

PRINT "POR FAVOR TIPEE CORR 

******************* w 


lili 

INPUT F'f(X) 


ECTAMENTE" 

5005 

PRINT 

“* 


1112 

PRINT 


2038 

INPUT TSÍ1,1 TO 25) 



*" 


1115 

FRINT 11 OTRA 

ENTRADA ? (S/ 

2039 

FOR S=i TO L 

5006 

FRINT 

"* 


N) " 



2040 

IF C*(S,1 TO 25)=T$lI,1 TO 





1130 

input f$ 


25) 

THEN GOTO 2160 

5007 

PRINT 

p * 


i 138 

IF F$ O "S" THEN GOTO 47 

2041 

NEXT S 



*“ 


1 140 

NEXT X 


2042 

PRINT 

5008 

PRINT 

“* 


1 142 

PRI NT 


2043 

PRINT TAB 5 f" FIN DE 



*“ 


1 145 

PRINT 11 

ARCHIVO CO 

LIS 

Tñ" 

5009 

PRINT 

"* 


MPLETO" 


2044 

PAUSE 3000 



*" 


1147 

PAUSE 200 


2045 

GOTO 47 

5010 

PRINT 

fl * 


1 150 

GOTO 47 


2047 

PRINT 



** 


1500 

CLS 


2050 

PRINT “ ENTRE EL NOMBRE A BU 

501 1 

PRINT 

"* 


1505 

PRINT AT 20,12 

; H LISTADO " 

SC AR 

* H 

# 



** 


1510 

FCR V=1 T0 L 


2055 

PRINT 

5012 

PRINT 

"******************** 


1515 

SCROLL 


2060 

INPUT S*(l,1 TO 30) 

************* 


1520 

PRINT N*(Vi í V 


2063 

FOR 3=1 TO L 

5015 

PRINT 

ó,5f“ARCHIVO TELEFÜNI 


1521 

SCROLL 


2065 

IF Ní(8,1 TO 30í =S$(1,1 TO 

CO" 




1522 

PRINT A$<V) 


30) 

THEN GOTO 2160 

5020 

PAUSE 

300 


1523 

SCROLL 


2070 

NEXT S 

5021 

CLS 



1524 

PRINT CSíV) 


2100 

PRINT 

5022 

PRINT 

AT 4,0;"ESTE PROGRAMA 


1525 

SCROLL 


2110 

PRINT "NOMBRE INEXISTENTE" 

PUEDE ARCIVAR" 


1526 

PRINT ZiíV) 


2115 

PAUSE 3000 

5023 

PRINT 



1 52“* 

SCROLL 


2120 

GOTO 47 

5024 

PRINT 

-100 NOMBRES,DIRECCIO 


1528 

PRINT PSÍV) 


2140 

PRINT NSÍS) 

MES Y TE H 



1529 

SCROLL 


2141 

PRINT Aí(Sí 

5025 

PRINT 



1530 

PRINT 


2142 

PRINT C*(S) 

5026 

PRINT 

“TAMBIEN PUEDE BUSCAR 


1531 

PAUSE 300 


2143 

PRINT ZfMS) 

POR NOM ■* * 



1550 

GOTO 49 


2144 

PRINT PitS) 

5027 

PRINT 



2000 

CLS 


2145 

GOTO 47 

5028 

PRINT 

fl BRE 0 CIUDAD.“ 


2020 

PRINT AT 1,12; 

"MODO DÉ BUSO 

2146 

PAUSÉ 3000 

5029 

PAUSE 

500 


UEDA M 



2160 

PRINT NÍÍS» 

5030 

GOTO 38 


2021 

PRINT 


2161 

PRINT ASÍS) 

6000 

SAVE " 

ARCHI-T.E." 


2022 

PRINT "BUSCA HOMBRE (Mí 0 C 

2162 

PRINT CííSí 

6010 

GOTO 38 


IUDAD 

( C ) ?* 


2163 

PRINT ZÍÍS) 

7000 

SAVE * 

ARCHI-T.E* p 


2023 

INPUT Oí 


2164 

PRINT P$(S) 

7010 

RUN 




UNA LINEA O: 

La siguiente instrucción causará que 
la línea editada en e! programa con el 
número 1, pase a ser la línea 0, que 
no podrá editarse luego ni cambiar su 
contenido. 

POKE (PEEK 23635+256*PEEK 
23636 +1).0 

Entremos la instrucción anterior en la 
Spectrum sin número de línea y ve¬ 
remos aparecer en el listado una her¬ 
mosa linea 0 donde antes se encon¬ 
traba la línea 1. 

La forma de volver a tener control 
sobre esa línea es entrar nuevamente 
el POKE, pero esta vez con el número 
1 después de la coma. 

Este mismo efecto podrá lograrse en 
la 2068 por medio de la siguiente 
instrucción: 

POKE 26711,0 

Prueben de colocar números más 
grandes que uno o números de línea 
que ya existan, sí está loca. 

“LINE-ADDR”: 

Esta subrutina situada en la ROM de 


la 1000/1500, comienza en la posi¬ 
ción 09D8 y sirve para averiguar en 
qué dirección empieza una determi¬ 
nada línea BASIC. 

Una de las utilidades es la de locali¬ 
zar una determinada línea y luego 
borrar el bloque BASIC en el EDI¬ 
TOR. precisa como dato el número 
de línea en el registro HL (registro 
intemo del 2-80), devolviendo la di¬ 
rección de la línea en la misma pare¬ 
ja HL. 

RANDOMIZE USR 
3652: 

Realiza un scroll de la mitad inferior 
de ¡a pantalla incluido el borde. 

RANDOMIZE USR 

4317: 

Cambia automáticamente de mayús¬ 
culas a minúsculas o viceversa según 
se encuentre en ese momento. 

POKE 23617,236: 

Si es colocado delante de un INPUT, 
en el lugar del cursor habitual saldrá 
un signo de interrogación. 


RANDOMIZE USR 
1331: 

Esta llamada a la ROM, ejecuta en el 
borde de la pantalla unas rayas pare¬ 
cidas a las que vemos cuando carga¬ 
mos un programa y además produce 
el ruido de una explosión por el al¬ 
tavoz. 

/ 

RESTAURANDO EL 
COLOR: 

Esta es una pequeña rutina assem- 
bler que provoca que los atributos de 
borde papel y tinta vuelvan a ser los 
mismos que al encender nuestra 
Spectrum de 48 ó 16 K. 

10 DATA 62.56.1,141.92,2,1,72.2, 

201 

20 CLEAR (USR “A"-12) 

30 FLOR N=(USR “A”-11) TO 
(USR “A” —1) 

40 READ A: POKE N.A: NEXT N 
Para llamarla en el caso de la Spec¬ 
trum de 48 K usaremos: RANDOMIZE 
USR 65357, y en el caso de ser de 16 
K: RANDOMIZE USR 32589 


>> 
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DE LA 

PROGRAMACION 


Los guiamos en ios primeros pasos para 
lograr un buen software . Para ello será 
indispensable saber como utilizar el cur¬ 
sor, entrar comandos o borrar caracteres 


(que pueden encontrar muy claro en el ma 
nual de la máquina}. 



Al comprar nuestro primer ordena- 

dor, con frenética ansiedad tratamos 
de devoramos el manual “específico 1 ' 
que lo acompaña. 

Probamos los ejemplos, los cambia¬ 
mos, descubrimos con los ojos muy 
abiertos, algunas de las cosas que di¬ 
ce ese manual que nuestra computa¬ 
dora puede hacer. Y comienza el 
vicio... 

Comenzamos a ahorrar memoria, 
acortamos los nombres de las varia¬ 
bles hasta dejarlos de un carácter de 
largo, localizamos todas las subruti¬ 


nas al comienzo del programa para 
ganar en tiempo de ejecución, flore¬ 
cen los GOTO, hasta hacer del segui¬ 
miento del programa un jeroglífico 
indescifrable, inclusive para nosotros 
mismos. Y cuando al mes de haber 
terminado nuestro programa, se nos 
ocurre que además debería hacer tal 
o cual cosa, y vemos el listado con 
DATAs por cualquier parte, o no en¬ 
contramos el corazón de éste, nota¬ 
mos que un sentimiento de angustia 
y desesperación nos invade hasta las 
lágrimas. Sin duda algo anda mal. 

Y es cierto, no somos para nada “es¬ 


tructurados" en la forma de progra¬ 
ma];. Obviamente no es nuestra cul¬ 
pa, en el manualcito de la máquina 
no decía nada sobre como ordenar¬ 
nos, ni de cómo hacer un buen pro¬ 
grama. 

La llamada Programación Estructu¬ 
rada es la que se encarga de resolver 
este tipo de problemas. 

Este tipo de programación tiene cier¬ 
tas reglas que de cumplirlas (no exa¬ 
geradamente), harán que nuestros 
programas sean comprensibles, no 
sólo por nosotros sino por todos los 
que estén en el tema. A no desespe¬ 
rar que nadie les robará sus progra¬ 
mas, siempre hay tiempo e instruc¬ 
ciones para complicar y proteger nues¬ 
tras creaciones. 

REGLAS PARA LOGRAR 
UN BUEN PROGRAMA 

• Lo primero que hay que tener en 
cuenta, es todo lo que queremos que 
haga el programa. 

Concentramos en los bloques de co¬ 
mienzo, parte central y fin, hasta lle¬ 
gar a planteamos los posibles proble¬ 
mas, lo más preciso que podamos. 

• Debemos estructurar cuidadosa¬ 
mente el programa por bloques, y 
asignarle a cada uno de estos una 
tarea específica. 

• Sin rigor, el programa, debe tener 
un comentario que aclare el funcio¬ 
namiento o finalidad en cada línea, 

• La lógica de programación y su tra¬ 
yecto a lo largo del programa, han de 
ser fáciles de seguir. Sin duda una 
buena documentación de éste, en lo 
que respecta a los algoritmos utili¬ 
zados, será de gran ayuda a la hora 

de la revisión del mismo. Jj¡ 

Lo que aquí se definen como reglas 
de programación, aplicadas a sus 
proyectos, harán que el suyo^ea un 
“buen" programa. Siguiendo esta lí¬ 
nea de programación estructurada, 
notará una mayor facilidad de desen¬ 
volvimiento frente a los problemas 
planteados. 

LINEALIDAD EN LA 
PROGRAMACION 

Cuando se dice que un programa tie¬ 
ne que ser fácil de seguir, se está ha¬ 
ciendo referencia directa a la pro¬ 
gramación lineal. 

Esto es muy simple, un programa 
“comienza al principio y acaba al fi¬ 
nal”, parece tonto, ¿pero se fijaron en 
la cantidad de programas hechos por 
profesionales en los que esto no ocu- 


















































rre?, la gran mayoría. 

La mejor forma de entender a fondo 
este concepto es justamente progra¬ 
mando. Recordemos que el progra¬ 
ma debe estar partido en varios blo¬ 
ques, sub-programas o subrutinas, 
que tienen que ser lo más cortas po¬ 
sibles. 

Una subrutina (al igual que el progra¬ 
ma), tiene un comienzo y un fin bien 
determinados, entre los cuales se da 
entrada a la información, se la proce¬ 
sa y se entrega el resultado acorde a 
este proceso, que en este caso se lla¬ 
man punto de entrada y de salida, 
respectivamente. 

Una subrutina puede perfectamente 
hacer referencia a o,tra, formando 
una cadena de subrutinas anidadas, 
siempre y cuando mantengamos el 
concepto de linealidad, y recordemos 
que cada una debe cumplir con su ta¬ 
rea específica. 

Estas son puestas dentro del progra¬ 
ma en el orden de llamada que efec¬ 
tuaran ellas mismás. Contribuyendo 
de este modo al seguimiento del mis¬ 
mo. 

Existe una gran rivalidad entre los 


programadores que prefieren la pro¬ 
gramación del tipo pregunta/respues¬ 
ta y los que la prefieren estructurada. 
Es nuestra intención tratar de lograr 
un punto de encuentro entre ambas, 
que haga versátil, creativa, cómoda y 
rápida, la implementación de progra¬ 
mas. Sin lugar a dudas todos os que 
comenzamos a programar por la cu¬ 
riosidad que nos producían estos 
aparatitos, en forma casera, somos 
por lo menos programadores de ten¬ 
dencia pregunta/respuesta, porque 
además el BASIC es un lenguaje que 
se presta a ello. 

Pero como también es imprescindi¬ 
ble que un programador tenga la 
mente abierta y perceptiva a lo nue¬ 
vo, creemos que es posible lograr ese 
encuentro de tendencias. 

Un argumento muy utilizado en con¬ 
tra de la programación estructurada, 
es que las sentencias REM ocupaban 
mucho espacio y retrasaba la ejecu¬ 
ción del programa. 

Nada más antiguo que este argumen¬ 
to. En épocas pasadas cuando los or¬ 
denadores tenían diez veces menos 
capacidad de memoria, y eran cinco 


veces más lentos, había que eliminar 
todo lo superfluo. y lo que menos im¬ 
portancia tenía, era la sentencia REM, 
Por eso se formó el hábito de no es¬ 
cribirlas. 

GENERALICEMOS EL 
BASIC 

Existe un acuerdo entre los progra¬ 
madores en general, de numerar las 
líneas de programa de diez en diez. 
Esto es así porque una numeración 
de línea continua (1,2,3,...) no permi¬ 
tiría la inserción de nuevas líneas. Y 
esta necesidad se presenta en mo¬ 
mentos inesperados. 

También es conveniente, para hacer 
más claro y legible el programa, dejar 
líneas en blanco. 

10 INPUT COSTO 

20 : 

30 PRINT COSTO * 1.4 
Y como contribución a esta claridad, 
es bastante bueno acostumbrarse, a 
no superar un renglón cuando escri¬ 
bamos una línea de programa. De¬ 
jando. dentro de lo posible, lugar pa¬ 
ra utilizar un comentario aclaratorio, 
por medio del REMark. 
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CONTROL 



TRANSITO 

COMP: TS 2068/SPECTRUM/TK90X 
CLAS.: JUEGO 
A UTOfí: Car/os Alberto Feito 


El presente programa es un juego basa* 
do en la simulación de una torre de trán¬ 
sito que controla la circulación de los au* 
tomóviles de una ciudad. 


tiempo, haciendo más difícil el control de 
los semáforos. 

El resto de las explicaciones se las dará su 
ordenador personal 



Se incluyen en la misma un puente, un tú¬ 
nel y un garage que hacen más variado el 
juego. 

El objeto es conseguir un flujo vehicular 
sin accidentes; que se producen cuando 
un automóvil intenta virar en una esqui¬ 
na hacia otra calle con el tránsito atasca¬ 
do hasta la bocacalle. 

El número de automóviles crece con el 


El programa consta de dos partes, una 
basic y otra assembler 
Se debe cargar esta ultima, a partir de la 
oosición de memoria 6Ü0Q0 y tiene una 
ongitud de 2048 bytes. 

Una vez copiadas ambas partes y antes 
de ejecutarlos, entren el comando GOTO 
702 para tener una o varias copias de 
ellas en una cassette. 


Estructura del programa 

4 - 120 : Presentación, comienzo y expli¬ 
cación. 

125 - 220 : Opción de nivel ínicialización 
de direcciones y cálculos asociados, 
222 - 300 : Dibuja la pantalla. 

302 - 452 : Sonido, lógica principal y fin, 
600 - 612 : Rutina de automóviles. 


1 REM 

**C0NTR0L DE TRANSITO*# 
POR C.A.F k J * P , B* 

2 LOAD " "CODE 

4 PAPER 0: BURDER O: INK 7: C 
LS 

6 PAUSE 50: FOR rt=i TO 5: PRI 
NT AT n,5í PAPER 2i BRIGHT 1 i " 

" : NEXT n 

8 PAUSE 150; FOR n*8 TD 12: P 
RINT AT n,5 í PAPER 6, BRIGHT 1¡“ 
11 : NEXT n 
10 PAUSE 150: CLS 
12 PAUSE 5í FOR r¡^15 TO 1?; FR 
INT AT n, 5 í PAPER 4; BRIGHT 1í ■ 

": NEXT n 

14 PAUSE 20: BEEP ,3,-iO; PAUS 
E IG1 BEEP *4,-10 

15 PRINT AT 17,12»"CONTROL DE 
TRANSITO M 

16 PRINT AT 17 r 12; OVER l| fAAA 

II I A A A II II A A A A H II II II A II 

20 PAUSE 6Q: PRINT #0¡ H P 

RESIGNE UNA TECLA 11 

22 IF INKEYS ( > ”* THEN 00 T0 22 
24 IF INKEY*-'“ THEN GÜ TO 24 
100 PAPER 5: BQRDER 5: CLS 

102 PRINT AT 1,7; INK 6í"CONTRO 
L DE TRANSITO" 

103 PRINT AT 1,7; 0VER i ;•»***-■ 

A A A A A UIIAAAAUI NnAII 

104 INK 0: PRINT AT 5,1f H UD* 

ES EL CONTROLADOR DE LOS SEMAFÜR 
OS DE LA CIUDAD* MEDIANT 

E LAS TECLAS 1-0 CÜNTRÜLAEL SEMA 
FORO CORRESPONDIENTE* PERO . . 

,ATENCIONM ASI COMO LOS COCHES 
ENTRAN AL GARAGE TAMBIEN SALEM D 
E EL. SU MISt 

ON ES LA DE REGULAR EL TRANSIT 
O DE NODO QUE NO OCURRA UN ACCI 
DENTE AL TRATAR DE VIRAR HACIA L 
A IZQUIERDA EN UNA CALLE ATASCAD 
A. * 

106 PRINT #0i * PULSE CfJALGU 

IER TECLA 
108 PAUSE 4E4 

110 PRINT AT 5 , I í B UD* DISPONE 
DE 5 NIVELES DE DIFICULTAD CRE 


CIENTES i-5. EL NUMERO HOME 

NTANEO DE AUTOS ENTRAMSITO SE IN 
DIGA CON A Y EL NUMERO MAXIMO 
CON M,EL QUE INDI CA ÉL PUNTAJE 
FINAL. u 

120 PRINT AT 10 v 201 11 


125 FOR N=0 TO 31: POKE (23264+ 
NS f 45: NEXT N 

130 PRINT nOí * PULSE EL N 

IVEL 1-5 

190 IF INKEY*"** THEN GO TO 190 
i 92 LE í (_*=INKEV*: IF L« > * 1 ■ A 
ND LÍO " 2” AND L*<>"3" AND LÍO” 
4 11 AND L*<>"5" THEN GO TO 133 
200 PAPER 4: BORDER 7: CLS l LE 
T A=0: LEI M=0: LEI L=VAL L *1 LE 
T 0 W : LET M*=“ 0" 

202 IF L-1 THEN LET P=25 
204 IF L“2 THEN LET P=20 
20Ó IF L=3 THEN LET P=15 
208 IF L = 4 THEN LET P^IO 
210 IF L-5 THEN LET P^=5 
212 POKE 60000,0: POKE 60001,0: 
POKE 60002,0: POKE 60003,0: POK 
E 60004,0: POKE 60005,1 
214 FOR n“60ó58 TO 60694 STEP 4 
216 LET x -(PEEK n)/2 
218 IF x = INT * THEN POKE n,2#x+ 

1 

220 NEXT n 

222 RANDOMIZE USR 60025 
224 PRINT AT 0,9; PAPER 6;"GARA 
GE”: PRINT AT Q,2Ü PAPER 6i H NIV 
EL - 

226 PRINT AT 0,26; PAPER 7* BRI 
GHT i;l 

228 PRINT AT 2,2; PAPER 6; BR1G 
HT l;"l u íAT 2,i 0 f"2“;AT 2,18 i"3“ 
íAT 2,26i"4" 

230 PRINT AT 7,14? PAPER óí BRI 
GHT 1¡"M”i: PRINT TAB 15í PAPER 
5f BRIGHT I iM*: PRINT AT 7,22í P 


APER óí BRIGHT 1 ;“A i, í: PRINT TAB 
23; PAPER 5i BRIGHT 1í AS 
232 PRINT AT 9,2i PAPER 6? BRIG 
HT 1; M 5"í AT 9,9í BRIGHT Gi'PUENT 
E M ;AT 9,18? BRIGHT 1 f 11 6 11 ! AT 9,26 
; ”7" 

236 PRINT AT 16,2; PAPER é; BRI 
GHT 1í"8”;AT 16,18í"9";AT 16,26i 

II Q H 

300 IF IN:KEY*O pn THEN LET A^l 
302 LET x=USR 60189 
304 IF PEEK 60004=0 THEN GO TO 
350 

306 POKE x,248: BEEP ,75,7: BEE 
P .25,8: BEEP *5,7; BEEP *5,5; B 
EEP *5,3: BEEP *5,2: BEEP 1,0 
308 PRINT AT 7,14; PAPER 6; BRI 
GHT tí FLASH ií H M“ 

310 PRINT PARA NUEVO JU 

EGO ENTER" 

312 IF INKEYS< >"* THEN GO TO 31 

2 

314 IP INKEY*"” M THEN GO TO 314 
316 LET LíMINKEY*: IF Lí< >CHRÍ 
13 THEN GO TO 312 
318 GO TO 100 

350 IF A~1 THEN BEEP ,05,M/5: L 
ET A=*0 

352 POR n*1 TO pí NEXT n 

354 RANDOMIZE USR Ó04Ó4 

356 GO SUB 600 

402 RANDOMIZE USR 60538 

404 GO SUB 600 

450 FOR N~i TO P: NEXT N 

452 GO TO 300 

600 LET a-PEEK 600QQ+256*PEEK ó 
0001 

602 LET m=PEEK 6O0O2+25ó*PEEK 6 
0003 

604 LET a*=STR* aU LET m*«STR* 
m 

606 IF LEN a*<3 THEN LET aS=“ " 
+a*: GO TO 606 

608 IF LEN m*<3 THEN LET * 

+m*: GO TO 608 

610 PRINT AT 7,15ím*jAT 7,23?a* 
612 RETURN 

702 SAVE -CONTROL DE" LINE U S 
AVE *' T RAF IC O p C O DE 60000,2048; GO 
TO 702 
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COMPUTER FREE. S.A. SU CASA DE COMPUTACION 


COMMODORE 64 Y 1 28 




SINCLAIR 
10OO • 1500 
SPECTRUM 



C 16 20 cuotas de A 13,72 
C 64 20 cuotas de A 21,84 



ENTREGA INMEDIATA TODOS LOS ACCE- 
SORIOS IMPRESORAS, MONITORES, DIS- 
KETERAS, CONSOLAS, DISKETTES VIRGE¬ 
NES, JOYSTICKS Y MAS DE 500 PROGRA¬ 
MAS EN SOFTWARE. 

NUEVO LAPIZ OPTICO 
• Y POR SI ESTO FUERA POCO TAMBIEN 
VIDEO 1340 BhNORMA 


CALLAO 1130 
CASI ESQ. STA. FE 


TK 90X MICRODIGITAL 


ENVIOS AL INTERIOR 
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Técnicas del Computador Moderno...; 
es decir, en la aplicación de ideas con- 
temporáneas para la solución de pro* 
blemas contemporáneos. 

A este tema lo desarrollaremos en 
dos partes: en este número tratare¬ 
mos la carga de matrices, suma y res¬ 
ta, multiplicación de una matriz por 
un escalar, producto de matrices, es¬ 
tableciendo sus propiedades; en el 
próximo número, programas para re¬ 
solución de determinantes, Matriz 
traspuesta. Matriz adjunta. Matriz in¬ 
versa. Cabe recordar que estos pro¬ 
gramas son utilizables por aquellas 
micro compatibles con el SPECTRUM. 
Lamentablemente esta micro-perso¬ 
nal no carga una Matriz directamente 
como lo haría una computadora pro¬ 
fesional y menos aún realiza opera¬ 
ciones (directamente), por eso debe¬ 
mos proceder a cargarla nosotros por 
medio de un programa; lo primero 
que hacemos es dimensionarla: re¬ 
cordemos que una matriz es una 
disposición (arreglo) de números por 
lo que su nombre debe ser una letra 
sin el signo $ (con signo $ sería una 
matriz de cadena que no es el terna 
que estamos tratando) y cuyos ele¬ 
mentos están dispuestos en forma 
rectangular definidos por su ubica¬ 
ción (fila I, columna J), tendrá enton¬ 
ces una dimensión de tantas filas por 
tantas columnas, en primer término 
siempre pondremos la fila, en segun¬ 
do siempre la columna, ejemplo DIM 
A(3,4) tendrá 3 filas por 4 columnas. 
Un Vector es un caso particular de 
una matriz de una fila o de una 
columna. 

La carga la podemos realizar con IN- 
PUT, READ. LET. Como ejemplo 
cargaremos una matriz de 3 filas por 
4 columnas. 

10 DIM A(3,4) 

20 FOR 1 =1 TO 3 
En la primer vuelta de este lazo FOR- 
NEXT estamos en la fila 1, imprimi¬ 
mos de qué fila se trata, y con el pró¬ 
ximo lazo por cada fila cargamos las 
columnas. 

30 PRINT “FILA =*’;I 
40 FOR J =1 TO 4 

50 READ A(I,J) 

51 ponemos 55 PAUSE 0 cada vez 
que pulsemos ENTER, veríamos in¬ 
gresar uno por uno a los datos (ele¬ 
mentos) de la Matriz. 

60 PRINT A(I,J) 

70 NEXTJ 

Cuando I =1 aquí ya cargó una fila 


Este artículo 
va dirigido a 
estudiantes 

secundarios , 
de primer año 
de la 

universidad 
y a todos 
aquellos que 
aunque 
estén más 
avanzados 9 
necesiten 
programar la 
carga y 
operación de 
distintos 
tipos de 
matrices e 
interpretar el 
modo de 
hacerlo . 


Con el advenimiento de las imicro- 

personales el aprendizaje de las ma¬ 
temáticas se ve facilitado, ya que con 
un poco de dominio del BASIC y otro 
poco de curiosidad, podemos inter¬ 
pretarlas más rápidamente, sin per¬ 
der tiempo en engorrosos cálculos, 
los que tendremos bien conceptua¬ 
dos al enseñarle a la computadora 
cómo debe hacerlos (que mejor mé¬ 
todo para aprender que enseñando). 

Una vez comprendido determinado 
tema, el profesor debe ser un órgano 
de consulta, el afán investigativc del 
alumno debe hacer el resto. 

Las micro desarrollan plenamente 
esta inquietud por investigar, ya que 
en un programa desarrollado por no¬ 
sotros es un desafío tomar el camino 
lógico correcto, corrigiéndonos a no¬ 
sotros mismos. 

Este artículo va dirigido a estudian¬ 
tes de los últimos años del ciclo se¬ 
cundario, primer año de la universi¬ 
dad, etc. y a todos aquellos que aun¬ 
que estén más avanzados, necesiten 
programar la carga y operación de 
distintos tipos de matrices e interpre¬ 
tar el modo de hacerlo. 

Cualquier curso de matemáticas mo¬ 
derno, debe tratar el álgebra de ma- 


MATRICES 



trices conno una de sus secciones más 
importantes. 

Las aplicaciones en ¡os distintos cam¬ 
pos son enormes: Física, Química, In¬ 
geniería, por ejemplo los niveles de 
energía de un electrón y muchas 
constantes físicas, pasan a ser calcula¬ 
das a partir de ciertas matrices de in¬ 
finitas filas por infinitas columnas, así 
como el estudio de las perturbacio¬ 
nes del movimiento de la luna. Pue¬ 
den hallarse matrices en el cálculo de 
estructuras y resistencia de materia¬ 
les; cálculo de órbitas astronómicas; 
cálculos estadísticos, tratamiento de 
cadenas de producción, problemas 
de psicología y sociología: por ejem¬ 
plo matrices de comunicación que 
nos dan conclusiones sobre el domi¬ 
nio de ciertos grupos sobre otros, re¬ 
gla de formación de matrimonios, o 
sea que por el cálculo matricial pue¬ 
de resolverse la intrincada maraña de 
las relaciones de parentesco de las 
sociedades primitivas (Antropología). 
Comportamiento del Mercado, teoría 
de los juegos de estrategia que a su 
vez es una rama de la investigación 
operacional para la toma de deci¬ 
siones, por ejemplo en acciones de 
guerra (o civiles). Genética, Teoría 
Cuántica, Teoría de las vibraciones, 
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completa, luego va a 20 y comienza 
con la fila siguiente. 

80 PRINT 
90 NEXT I 

100 DATA 2,1, -1,0,43,2,5,3, -2,0,7 

La cantidad de datos debe coincidir 
exactamente con la cantidad de ele¬ 
mentos de la matriz dimensionada 
(en este caso 3x4 =12 elementos). 

Existe la tentación de ver la Matriz 
representada en pantalla, distribuida 
aor filas y columnas, ello se podría 
ograr si cada elemento de la matriz 
no tiene más de 3 ó 4 dígitos y la can* 
tidad de columnas no supera 6 , la 
cantidad de filas no interesarían ya 
que harían un SCROLL, si este es el 
caso haríamos en 60 PRK I A(I,J); 
“ (se corregiría el espacio en 
función de la cantidad de columnas). 

Las operaciones a realizar podrían 
ser para comenzar sumas y restas. 
Para sumar 2 matrices nos faltaría 
cargar otra matriz B, para ello utili¬ 
zaremos el mismo procedimiento an¬ 
terior. La suma de una matriz A con 
otra B nos dará una nueva matriz C y 
como sumar 2 matrices es sumar ca¬ 
da uno de los elementos correspon¬ 
dientes a la misma fila y columna, ten¬ 
drá la misma dimensión, le indicare¬ 
mos a nuestra micro cdrr.o debe 
hacer la operación: tengamos en 
cuenta que no se permite la suma o 
resta de más de 2 matrices por vez y 
que ambas deben tener la misma 
dimensión. 

300 DIM C(3,4) 

310 FOR 1 =1 TO 3 
320 PRINT “FILA = ”;I 
330 LET C(I,J) = A(I,J) + B(I,J) 
Estamos utilizando LET para cargar 
la matriz 

340 PRINT C(I,J) 

Imprimimos, si no aparecen los resul¬ 
tados por pantalla. 

350 NEXT J 
360 PRINT 

Este PRINT es sólo para separar 
370 NEXT I 

Recordemos las propiedades de la 
suma de matrices 
(A +B) +C = A +(C +B) Asociativa 
A+B — B +A Conmutativa 
A+0 =0+A =A Existencia de la ma¬ 
triz nula Todos sus elementos =0) 
A-K-A) = (-A)+A =0 
El criterio para la resta es exactamen¬ 
te el mismo. 

Multiplicación escalar 

k ^constante 



En este caso todos los elementos de 
una matriz se multiplican por una 
constante. Si tenemos una matriz 
cargada A y la queremos multiplicar 
por 3 , 2 , obtendremos una nueva ma¬ 
triz de igual cantidad de filas por igual 
cantidad de columnas que la A sólo 
que cada uno de sus elementos re¬ 
sulta de multiplicar a cada elemento 
de A por 3,2. Si no utilizáramos A en 
un futuro, nada nos impediría volcar 
esos nuevos elementos en la misma 
A pero si no dímensionamos una 
nueva matriz D y la cargamos como 
hicimos con C (si usamos A también) 
haciendo LET D(I,J) — 3,2 * A(I,J). 

Tengamos en cuenta que esta cons¬ 
tante puede ser una letra, que a la ho¬ 
ra de ser requerida represente un nú¬ 
mero. 

No se permite la multiplicación esca¬ 
lar por más de una matriz, la expre¬ 
sión LET H(I,J) =9*A*Ból8* A + 
B es incorrecta. 

Propiedades 

k * (A+B) =k * A * k * B Distributiva 
k =l k*A = A 

El panorama se complica un poco, 
cuando debemos enseñarle a nues¬ 
tra micro, a multiplicar matrices. Ten¬ 
gamos en cuenta que: 

1) Un producto matricial será posi¬ 
ble si y sólo si siendo la matriz A el 
primer factor y B el segundo, el nú¬ 
mero de columnas de A sea el mismo 
que el número de filas de B. 

2) No se permite la multiplicación de 
más de 2 matrices. 

3) El producto de matrices no obe¬ 
dece la ley conmutativa, los produc¬ 
tos AxB y BxA de matrices, no tienen 
que ser iguales. 

Propiedades 

(A*B)*C = A*(BxC) Asociativa 
A*{B+C) =A*B + A*C Distributiva 
(B +C)*A = B*A +C*A 
k * (A*B) ={k*A) *B =A* (kxB) don¬ 
de k es un escalar 
Repasemos cómo se logra, manual¬ 
mente, resolver el problema: dimen- 
sionaremos particularmente una ma¬ 
triz A(3,3) y otra B(3.2), cuya expre¬ 
sión general sería A(LM) y B(M,N), e¡ 
producto de ambas dará como resul¬ 
tado una nueva matriz C(3,2) ad¬ 
mitiendo la forma general de C(LN). 

_ a 12 a 13 

a 21 a 22 a 23 
^ a 31 a 32 a 33 / 



AxB obtenemos C = 


'c n c¡ 2 N 

C21 C22 
I C;,, C32 


/ 


Cada elemento de C se logra ha¬ 
ciendo: 

c n =a n * bu +a lz *b 2 i + ai 3 l, ‘b 3 i 
c i 2 =a n * b 12 + a¡ z * b 22 + a 13 b 32 

c 2 i =a 21 * bu + a 22 * b 22 + a 23 * b 31 

c 2 2 ~ a 2 i * bj 2 4- a 22 * b 22 + a 23 b 32 

C 31 =a 3i * bu + a :j2 * b 2 i + a 33 * b 3 l 

c 32 ~a 3 i * b ] 2 +a 32 * b 22 +a 33 b 32 
Si encolumnarcos la operación para 
la obtención de uno cualquiera de los 
elementos de C por ejemplo c 12 , 
podremos analizar sus posiciones: 

a(l,l) * b ( 1 , 2 ) 

+ a( 1 . 2 ) * b ( 2 . 2 ) 

a(l,3) * b (3,2) 

Observamos que dos números, si 
bien distintos, se mantienen constan¬ 
tes (fila 1 y columna 2 ). a ese valor 
que cambia cada vez (lo llamaremos 
G), nos obliga a un nuevo FOR- 
NEXT, entonces el patrón de varia¬ 
ción (expresión general), será: 

a(I.G) * b(G,J) 

Suponiendo tener cargadas las ma¬ 
trices A y B (que reúnen la condición 
1 ). .), un programa general que car¬ 
gue una matriz C (resultado de AxB) 
sería 

500 DIM C(LN) 

Recordemos A(LM) y B(M.N}poreso 
ese dimensionamiento de C (debe 
quedar claro que un programa será 
usado en forma general, los dirr.en- 
sionamientos particulares que hemos 
hecho sólo servían de comparación 
para aclarar conceptos). 

510 FOR 1=1 TO L 

520 PRINT “ FILA =";l 

530 FOR J = 1 TO N 

540 LET SI =0 ; LET S =0 

Como hay sumas y multiplicaciones 

interrelacionadas necesitamos estos 

2 acumuladores 

550 FOR G = 1 TO M 

En un producto M=cantidad de co¬ 
lumnas del primer factor = cantidad 
de filas del segundo factor. 

560 LET SI = A(I,G) x B(G.J) 

570 LET S =S+51 
580 NEXT G 
590 LET C(I,J) = ? 

600 PRINT C(I,J) 

610 NEXTJ 
620 NEXT I 


Héctor Raúl Mansilla 
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COMP.: CZ 1000/1500; TK 83/85 
COñIE: 16 K 
CLAS.: UTILITARIO 
AUTOR: Pablo Ignacio Razan 



Comentarios previos 

Este utilitario tiene por finalidad reducir 
por filas, matrices de “m” filas y “n" 
columnas. 

Es un soft muy útil para los estudiantes de 
carreras técnicas, de nivel terciario y 
secundario. 

Luego de una breve presentación, el pro¬ 
grama requiere el ingreso de los datos co¬ 
rrespondientes a la matriz (cantidad de 
filas y columnas), no pudiendo exceder 
los 100 elementos. 

Para matrices M que pertenecen a un 
cuerpo K de m filas por n columnas, con 
m^8 tal que n 6, veremos la matriz en 
pantalla de la forma M(I.J) =X, con m<9 y 
n<7 se verá en pantalla con la forma de 
matriz. 

Los coeficientes (los elementos de la 
matriz), deben estar comprendidos entre 
-999 y 9999, esto es: 

-1000 < X<1000 

Una vez ingresados los elementos, el pro¬ 
grama comienza a trabajar de la siguiente 
forma: 

* Ordena la matriz (líneas 2000-3000} 

* Hace cero la columna del primer ele¬ 
mento conductor (50-140) 

* Ordena esta otra matriz (2000-3000) 

* Hace cero la columna del segundo ele¬ 
mento conductor (50-140) 

* Ordena 

* 

■ + ■ 

* y así hasta el último elemento conductor. 
Esta tarea se hace muy rápido (sobre todo 
si la matriz no tiene muchas filas), por lo 
general tarda 15" aprox 
Una vez hecha la reducción de la matriz, 
comienza con la visualización de ésta, 

Al imprimir en la pantalla la matriz, se va 
fijando si los elementos de ésta son ente¬ 
ros, si es así los imprime tal cual. Si no lo 
son se ejecuta una subrutina que imprime 
el número en forma de fracción, simplifi¬ 
cando a ambos números si es posible por 
2,3,5. 7, 11, 13, 17 o 19. 


Esta forma es muy práctica aunque tarda 
unos 6" en ponerlos como fracción. 

La visualización en ‘forma de matriz' se 
complica cuando son números muy gran¬ 
des pudiendo quedar encimados, por eso 
al terminar de imprimir tenemos la op¬ 
ción de verla de la forma M(I,J) =X, pul¬ 
sando la letra 'M'. Para terminar con esta, 
pulsamos cualquier tecla y el programa 
pedirá una nueva matriz. 

Utilidad 

Uno de sus mayores usos es el de resolver 
sistemas de m ecuaciones con n incógnitas. 
Por ejemplo, consideremos el siguiente 
sistema de ecuaciones lineales: 

5X1 +0X2 +15X3 +12X4 +6X5 + 
3 XI +2 X2 + 0 X3 + 3 X4 +1 X5 + 
5X1 +1 X2 + 0X3 + 5X4 +2X5 + 

0X6 =0 
0X6 =5 
9 X6 =3 

y queremos encontrar una solución gene¬ 
ral y una particular. 

De acuerdo a este sistema tendremos 2 
matrices: 

1) La matriz de coeficientes 

5 0 15 12 6 0 
A=3 2 0 3 1 0 

5 1 0 5 2 9 


2) La matriz de términos independientes 
0 

H = 5 
3 

La matriz que debemos tomar en cuenta 
entonces, es la matriz ampliada: M(A/H) 

5 0 15 12 6 0 0 
M = 3 2 0 3 1 0 5 

5 1 0 5 2 9 3 
Entonces cuando la máquina nos pre¬ 
gunte cuántas filas tiene la matriz, respon¬ 
deremos 3, y cuando lo haga por las co¬ 
lumnas. responderemos 7; luego entra¬ 
remos la matriz M coeficiente a coeficien¬ 
te. 

Después de unos segundos, la máquina 
nos dará la matriz reducida: 

100 1 3/7 18/7 1/7 

010 01/7 -27/7 16/7 

0 0 1 7/15 9/35 -6/7 -1/21 

Esto significa el siguiente sistema 

• 

1 XI +0 X2 +0 X3 + 1 X4 + 

0 XI + X2 +0 X3 + 0X4 + 
0X1 +0X2 + X3 +7/15X4 + 

3/7X5 +18/7 X6 - 1/7 
1/7X5 -27/7 X 6 =16/7 
9/35 X5 - 6/7 X6 = 1/21 
De donde podemos despejar X+ X2 y 
X3, facilitando de este modo la obten¬ 
ción de las soluciones. 


l 

lo 

30 

40 

50 

60 

70 

75 

76 


ÜGSUB 9500 
GQSUB 7000 
FAST 

GÜSUB 2000 
POR ti— 1 TO 
FOR H=1 TO 
IF H-G THEN GOTO 120 
IF K (ü > + 1 >C THEIM LÉT H=F 
IF K(G)+1>C l'Htl'J GOTO 120 


F 

F 


SO IF B(H, I. +1>=0 THEN GOTO 120 

90 FOR D=:l T O C 

too LET C ÍH,D)-B<G,K<G>+ 1 )iH■D)—B(H 

K (G) + 1 ) +B (13 , £, j 
110 NE X T D 
1 1 1 FOR D= 1 TO C 

112 LET B(H,Di=G(H,D) 

113 NÉXT D 
116 GOStJB 2000 
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117 

1 2*"^ 
140 
142 
145 

200 

220 

230 

300 

350 


405 
410 
420 
422 
425 
430 
432 

434 

435 

436 
440 
450 
500 
510 
512 
5 15 
5 16 
520 
400 
601 
4,02 
605 
4 10 
620 
:■ 30 
640 
650 
. ■-60 
> 70 
,80 
>90 

veo 

7 10 
715 
720 
730 
730 
777 
yOO 
610 
820 
30 
900 
2000 
2001 
2002 


LET H=H—1 
NEXT H 
NEXT G 
&OSUB 2000 
SLOW 

[F C<7 WD F< 9 THEN LEI P I L=0 
IF r>=7 tjR F >—V THEN LET R1L=1 
l.e: t’tab^o 

IF P I L =i THEN GOTU 600 
FR1N T A T 1 1 ? Oí 11 MATRIZ REDUL X DA = 

POR G=1 TO F 

IF ktG>+l>C THEN GOTO 434 
FÜR Dd. TÜ C 

LET C í b .LO =B < ij- Li > / B(b. 1; í b > +1 ) _ 

I f CXG* D) < >1Í4T C((6DÍ THE N GüTü 600O 
PR l NT AT 1 2 + G . (O-1> *5‘ CÉG * D ) 

NEXT D 
i-jFiTO 440 

POR U-1 TÜ C _ (I . 

PR 1 N T A T 1 2+b * ( U-1 ) + 5 ? B ( b . U) 

ME XI U 
NEXT b 

PR I NT Al 20 í Os M ,IM M" ,l PARA VERLA MAS C-L 
PR IN T' Ai 21 ■■ O i 111 ap r i e i «3 u n a tecla para o 1 r a 
í F I T iF E > *= " " I HEN &ÜT Ü 5 I O 
LET G*= TNKEYT 

CUS 

IF " M " THEN ÜUlU 600 

RUN 10 

pp l N T AT O,O' "HATRIZ REDUCIDAü " 

LEI TAB-0 
FQR 6=J TO F 

í F : K <0) + 1 Ü THEN GÜTO 690 
F UR [J= I I U L 

i f 1 i < 6? D > :íS E < ü D ) / B (6 ? K (6 ) + i ) 

IF" C D ' : i NT C (&jD) THEN GOTO 6000 

F--R f NT AT D + 1 . 3 AB ; " M í n ; G ? '% " s D ; 11 ) = : " í L íb t D > 

NEXT D 

LET TAB-T AB+ J 6 
ÍF TAJB--32 THEN GOTO 750 
GOT'U 720 
¡- i_j R 1 tj — L I U L 

! R rNT AT ü+ 1 - TAS : M H i " z 6 5 |J * 11 ? LA " > - " i B < b - U ) 
NEXT IJ 
GOTO 660 
NEXT & 

GO'TU 450 

PR I NT A T 21? 0 í 11 ap r ¡ e? t e una teda 
IF íá--F THEN GOTO 450 

I NFEY*= : " " THEN GOTO 800 

CLS 

LET TAB-0 
NL X 1 G 
GOTO 450 
FQR J“1 TO F 
LET K < J)“O 
NEXT J 


! I 


2007 


2020 

2030 


2050 

2060 

2500 

2510 

2520 

2=¡3n 

25 1 O 
2542 
2545 
2547 
2550 

■7C: 


_l 

2560 

2565 

2570 

2580 

3000 

6000 

6002 

6005 


600 7 
6008 
6 00 9 

601 O 
6020 
60 30 


6040 

605O 
606O 
60 70 
6080 
6 1 00 
6 :í i o 

612 O 

6130 
6140 
6 150 
8160 
6200 
62 1 0 
6220 
6230 
62 4 O 

i r '• r 

6260 

6270 


FÜR A“ 1 TO F 
FÜR' N=1 TÜ C 

I p 8 í A ■■ N> -ó THEN LE T K ( A > = K (A) +1 
IF B C A * N) =0 THEN bÜTÜ 205o 
LEI N™C 
NEXT N 
NEXT A 

FÜR 1=1 TÜ F 

'[ F I +■ 1 >F THEN GOTO 2580 

FÜR J-l+I TÜ F 

i F K (IX =K ( J ) T HEN GÜ T U 25 70 

ron L—i tu o 

LET PIB=B(J-L) 

LET B í J ? L ) =B < X ? L > 

LET B(OÜ=PíB 
MEXT L 
LET 0«=K ( I ) 

LET KÍI)^K(J) 

i et k í J) =0 

NEXT J 
NEXT I 
RETÜRN 
FAST 

LET NÍ=B(GdA 
LET N2“=B (b? K ( b ) + !l ) 

FÜR 0=1 TÜ 9 
LET X <Q)—O 
LET Y < Q)=0 
NEXT Q 

LE T Tf 11 + CHR S 11 •+•"$) •. n 
P uR Z"-” 1 T i..! 8 

J. S- N I / CODE T4 1 1 ) = 1 NT (NI/ LUHt T %\l ) > 
j ET X (7)“X ÍZ> +• 1 

I F N 1 / CODE T T ( 7. > < > INT (N 1 /f ODE T % k l ) ) 
THl N GOTO 6070 


THEN 


LET Ni -NI/CODE T*< 1 ) 

laÜTl I 6.030 

NEXT 2 

LEI X (Z t =N 1 

POR Z1 fü 8 

IF N2/CÜDE T*<Z>=INT <N2/C0DE TfTZd THEN 
LET Y ( Z ) -Y < Z) + 1 

] F N2 . i: f IDE T $■ ( Z ) < > I NT < N2/CÜDÉ T t « 1 ) í 

THEN GOTO 6150 

LET N2==N2/ CODE T^líZ) 

GOTO 6110 
NEXT 2. 

LEI Y(Z)— N2 

f "V'I'R t— "j |' f| C; 

T F X ( I ) < Y ~( ¡ > f HE N GOTO 6250 

LET X (I) =X 'U > ~Y l I J 

LET Y íI >™0 

orí ro 62 90 

LET Y(I)=Y< I) —X (I ) 

LET X i 1) «O 
NEXT I 
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CZ 1000 - 1 500 - 2000 - SPECTRUM 


fícommodope 


16K y 64K 


INTERFASES * PROGRAMAS - JOYSTICKS - CASSETTES 

SERVICIO TECNICO 



ni AHOflno previo 

OBTENGA SU COMPUTADORA EN 20 CUOTAS 


BDR 


distribuidor 

oficial 


AV. BELGfiANO 3284 
(1210) CAP. FED. 
TEL. 89-6672/6906 


Interfase Kempston para Spectrum con 
reset y disparador automático ¿^.Am¬ 
plificador de sonido “Sound Box”, con 

salida a parlante externo A 38,50, 

Con junto 60. 

Fabrica y Distribuye 

COMPUMEP S.A. 

Bel jira no 3282 P.B. "A” C.P. 1210 Tel. 8 9-6672 6906 
ENVIOS AL INTERIOR 


INPUTDATA CLUB 


Santa Fe 1670 - Loe. 45 








Z. commodore 


TK85 - 90X 
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LIBROS - PROGRAMAS - JUEGOS 
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AV. CRUZ 4602 (y Escalada) 
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RCBRAMÍIS 


7Í?* ( 19**X (sfT*X (9) :> + ' "-'*** (2) } * <5 ** >< <3> ) *<?■*** ) )*( 11 **X (5) ) * ( 13**X (6) > * < 1 7**X < 

7) ?* <l+■ vi ¿ft+Y <“=■) ! + ’' 2! 5 +: í ^'* 4 ' Y * 3 ' 5 :+: 7:+ ' ; * : V (4) ) •i'- ( 1. i**Y <5) ) * (1 3** Y <6) ) * (1 7+=*Y < 


6300 SLOW 


2 '7 cr 

J _-l -3 jL ■ 1 

IF 

SÍ="M" THEN 

GOTO 

6350 

IF 

P IL =1 THEN 

GOTO 

■6 400 

IF 

M<0 AND N < 0 

THEN 

6425 

IF 

M >0 AMD NCO 

THEN 

6 4 5 0 

IF 

<MX> AND N > 

0 > OR 

6455 

60T 0 430 


6460 

IF 

M<0 AND N<0 

THEN 

6470 

IF 

M >0 AMD NCO 

THEN 

6,480 

IF 

< M> 0 AND N> 

0) OR 

H O / It * 
f .^i 

N 




N 

N 


AND N >O) THEN PR INI AT j. 2+G ? ( (D~ 1) *5 > - i ; M * " /" ; N 


D+1 7 TAB;"M(”;b;",D; 


11 




¡1 


i i 


—M 


H / n 


N 

N 


II 


> O) 


6500 bOTn A*SO 

7002 PRINT AT 0,0: 

7005 PRINT "CANTIDAD DE FILAS ? 

7006 INPUT F 

7007 PRINT ?F,"CANTIDAD DE COLUMNAS ? 

7008 INPUT C 

7009 F'R I NT C 

7010 IF F+OIOO THEN GOTO 8200 

7020 PRINT ,,“ENTRE MATRIZ NUMERO POR 
PRINT , , , , 1 1 ’ A NO T £: L A M A T R I Z 


F'R I NT AT D + 1, TAB: " , " s Ds " ) * " : M 


>11 


ERO 


i \ 


■7 


702 


7025 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

í”j -Ti 


ANTES DE ENTRARLA" 


LET S*-"" 
DIM X ( 10 > 
DIM Y(10) 

— ü 


) 


C >■ 4) 

) 


ao r i e t e un a. tecla" 


7094 


->6 


J 


7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7 190 
7200 
7210 
7220 

"7 ■7 , “-íO 

7235 
7240 
7250 
7260 
7 a’L 7 O 
7280 
7300 
8000 
3010 
8020 
8030 
8040 
805O 
8060 


> > 


- * > i > . \ i . > > i 

, , V -i > 


DIM C <F ? C 
DIM MÍÍF + 

DIM B (F,C 
DIM K (F) 

PRINT A T 21,O:"ap 
IF INKEYí-"" THEN GOTO 7O94 

r;J_C; 

PRINT AT O^ Os"MATRIZ:" 

IF C<7 AND F<9 THEN GOTO 8000 
LET TAB =0 
POR N'~ 1 TO F 
FÜR V=1 TO C 
LET FBT --F BT+1 
INPUT Mí(FBT) 

IF Mí (FBT) -" " OR Mí(FBT)~ 

PRINT AT V+l,TAB:"M(":N 
LET B ( N,V)-VAL Mí(FBT) 

NEXT V 

LET TAB-'TAB + 16 
IF TAB=32 THEN GOTO 7235 
NEXT N 
GOTO 7280 

PRINT AT 21? U:“apriete un a tecla 
IF INKEYí="" THEN GOTO 7240 

l"'; | C; 

LET TAB=0 
NEXT N 
CLS 

RETURN 

PRINT AT O?O;"MATRIZ 
FOR N-=-1 TO F 
FOR V=1 TO C 
LET FBT=FBT+1 
INPUT Mí(FBT) 


ll 


THEN GOTO 7150 
:Mí(FBT) 


l I 


1l 


THEN GOTO 8040 


ti 
1 I 


3 OtíO 
8090 


t^ 1 
ii_■ 


3200 

8 210 

O O’ 'M 

_ r ; 

46 M 

8240 

8250 

9500 

9600 

9650 

9651 

9652 
9700 
9900 
9910 


IF Mí (F : BT) — " " OR Mí (FBT) = '*- 

PRINT AT N+1> <V*5)-LEN STRÍ VAL Mí(FBT):Mí(FBT) 
LET B(N ? V)=VAL Mí(FBT> 

NEXT V 
NEXT N 
RETURN 

PRINT ,?"DEMASIDO GRANDE" 

PRINT ?7,7"NO DEBEN SOBREPASARSE LOS 100 
FOR V=1 TO 40 
NEXT V 
CLS 

GOTO 7002 

PRINT AT 5?5:"ESTE PROGRAMA REDUCE" 

PRINT AT 10,1O:"MATRICE3" 

FOR T“1 TO 50 
NEXT T 
CLS 

P £T "|" | 

SAVÉ "REDUCCION DE MATRICEs" 

RUN 


ELEMENTOS 


h 





* 
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DICTANUMEROS 

COMP: TS 2060 
CIAS: UTILITARIO 
AUTOR: Julio A. Alteradi 



Este es un sintetizador de voz especiali¬ 
zado en la pronunciación de los números 
y algunos de sus símbolos asociados. 
Para la confección de este programa, se 
ha usado Basic, Assembler y muestreo de 
voz humana para generar los patrones 
sonoros. 

El programa está compuesto de una zona 
de almacenamiento de datos, que se 
corresponde con los patrones sonoros de 
los números del 0 al 9, y los siguientes 
símbolos: “ +”, “ “e” (exponencial). 

Para cada símbolo o número se utilizan 
250 bytes. siendo éstos una digitalización 
de las ondas sonoras correspondientes. 
La otra parte del programa, es la subruti¬ 
na de sonido que toma información de la 
zona de datos y la convierte en una salida 
sonora por el parlante de la computadora 
y por la salida MIC (a un grabador o 
amplificador' 

El listado de esta rutina es el siguiente: 

SONIDO LD HL (23758);¡nicio 
LD DE.250;longitud del 
LOOP1 LD B,8;bloque 

LOOP LD A {23760);demora 

OEM DEC A 

JR NZ,DEM 
BIT 0,(HL} 

JR NZ,BT1 
BTO LD Al 

OUT (254),Asalida de 
RLC (HL);sonido bitO 
DJNZ LOOP;siguiente bit 
JR SALT 
BT1 LD A19; 


OUT (254),A:saIida bitl 
RLC (HL) 

DJNZ LOOP 
JR SALT 
SALT INC HL 

DEC DE;actualización de 
LD ADicontadores 
OR E 

JR NZ,LOOPl; terminó? 

RET 

Este programa fue ensamblado en la di¬ 
rección 65293. 

En la parte basic de este programa se in¬ 
cluye un cargador hexadecimal, por lo 
que no es necesario contar con ensam¬ 
blador alguno. 

Los valores en las direcciones 23758 y 
23759 corresponden a la dirección inicial 
desde donde leer los patrones sonoros. 
El contenido de la memoria 23760 co¬ 
rresponde a la duración del bucle de 
retardo. Cambiando este valor mediante 
POKE 23760,n se modifica la velocidad 
de muestreo del programa assembler 
“SONIDO ”, dando como resultado una 
voz más grave o más aguda. 

Utilización del programa 

La subrutina en base propiamente dicha 
es la que se encuentra en la línea 9999. El 
resto del programa son los datos corres¬ 
pondientes al assembler e instrucciones 
de uso. 

Una vez tipeado el programa, debe ejecu¬ 
tarse y ser grabada solamente la línea 


9999, y los bytes de datos juntamente 
con la subrutina “SONIDO" mediante: 
SAVE “dic”: SAVE “dic” CODE 61666, 
3800 

Hay que recalcar que el primer Save se 
refiere a la grabación de la línea 9999 de 
Basic, por eso después de ejecutar el 
programa completo se deben borrar to¬ 
das las líneas, menos la 9999 (mediante 
DELETE1,9998), y luego grabar en cinta. 
Para recuperarlo desde cinta teniendo 
otro programa en memoria, se tipea: 
MERGE LOAD CODE 
Recordando que la línea 9999 está re¬ 
servada y no podrá usarse por el progra¬ 
ma a! cual se le quiere agregar “DICTA- 
NU MEROS”. 

Una de las aplicaciones más interesantes 
se presenta a la hora de verificar tediosos 
DATAs. En este caso nuestra maquinita 
será una grata compañía, y a cambio de 
un par de instrucciones similares a las que 
siguen, ella con gusto nos dictará el lista¬ 
do de los datos que hallamos tipeado. 
10 READ A: LET Z$ =STR$ A: GOSUB 
9999: PAUSE 20: GOTO 10 

Variables útiles: 

TONO: cambiando su valor en la línea 
9999 obtendremos distintos tonos de 
voz. 

Z$: string correspondiente al número a 
dictar. 

Direcciones útiles: 

65293: comienzo de la rutina “SONIDO" 
23759: byte LO puntero de dirección 
de bloque de datos. 

23758: byte HI puntero de dirección 

de bloque de datos 

23760: temporización de la voz 
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(A*(C)>"9"))+CODE A*(C+l)-48-7*( 
AÍÍC+1)> " 9 “ > 

70 LET D=D +1 
75 NEXT C 
80 RETURN 

100 REM DATA DEL PROGRAMA DE 
MANIPULACION DE SONIDO 
110 DATA “2ACE5C11FA0006083AD05 
C3D20FDCB46200A3E01D3FECB061OEE1 
80A3E13D3FECBQ610E41800231B7AB32 
0DAC9" 

200 REM LOS SIGUIENTES DATA 
CORRESPONDEN A LOS PATRONES SO¬ 
NOROS DE CADA NUMERO O SIGNO. 

UN ERROR EN ESTOS NO DESTRUYE 
EL PROGRAMA. 

309 REM *#*SI6N0 + **# 

310 DATA "0000168100000OO2F0000 
000009E0000000010810000000239000 
000003281002000060126308C62398C6 
06219871199CC30" 

320 DATA " 18F131891F188C6670113 
133E762210D321999C440C482899D4CF 
01162Ó21917143C4CF091D117664SS8C 
0C2898F241852C1 “ 

330 DATA ’C2130C93F020C70202393 
0E642032C4CD880C08E035S0044C4899 
1333222C0C4253036644488991931332 
18C481993214223" 

340 DATA *4E449833000B23381364C 
CE00C0A6C00181033664C98232000088 
66C0000009010900024080780BD0D60E 
E267C7CE1FF74B9" 

350 DATA "389D21FD1E1C6030D2C1C 
80B9F32018F848E8D90AADF31E037EF7 
C1AlF0F87C73CC0DFC3FC8EA7C61DIEl 
3C30BC31E1D3E30“ 

359 REM ***SIGNO - #** 

360 DATA "OOFE000000007E8000000 
00EE1OOOOOOOOBDOOOOOOOO 36 O100000 
0027100CCC810D93365D8235244A825C 
8DCA7D825B45A6D" 

370 DATA "97D24C25B74A412590359 
260085004C969242104B7D2D25AAA511 
25A0A50492C052101B452C08801B74A2 
106922825920650" 

380 DATA “3C9348059344910000000 
OB4000000003401000000ÍADOOOOOOOO 
2DOOOOOOOOOEAOOOOOOOOÓA005182446 
ED2A36443664CC8" 

390 DATA "98411999076464CCCCCC8 
C18129111A70CBCCD8CC042033331988 
0817808534060061019041C0209CE000 
C0OE2OO8142O172“ 

400 DATA "01C000810E4030006020A 
118001000E4040004001C020002000E4 
04000800041OA2220006404400402426 
00004A42929001O“ 

409 REM ***SIGNÜ . *** 

410 DATA “58210EC2CDP4CSCC2581B 
C6C15610007C13D00303800F170C0F1O 
0E170C0F906C1E002F102C1E030F120C 
18182E1C2818183" 

420 DATA "El42C1C086E186018187E 
18281C087C10620800DE10630820FE00 
9B00408Ci008000006E000000005EOOO 
000003601000000" 

430 DATA "160100000004E90000000 
ÓE 8 OOOOOOOOBBOOOOOOOOFCOOOOOOOO1 
6E100000002F1OOOOOOOOOOOOOOOOOOO 
OOOOOOOOOOOOOOO" 

440 DATA “000000000000000000000 
00000000000000000000000000000000 
0369491499F42F1466400045A3E80263 
F03FC4E01BE00E1“ 

450 DATA "6E040E00F98CC1SOC13E1 
2200470iEC976008601FC068330C03EC 
1EO104600CC140410E00E832OC4O6097 
0000000E0GC0201" 

459 REM ***SIGNO E *#* 

460 DATA n 4AD02E212D00FC0394044 
B96A05680552A6D0591BA412DA59602D 
6526A48A5084925A5B692D2486905B19 
2142DA1B412D012“ 

470 DATA "DA4A652F80AA496900A51 
6B412A05A29F523D40B410C69250196A 
OAD27B002DO0E512851B400EC25A1169 
422694801B413B4" 


480 DATA "84530244AC692780B4806 
D25B402D02A430801A4966C05A196908 
AD228412D255A44Ó124A11E905A40Ó80 
5950A4108014C01" 

490 DATA “A4019492DO0C413692FC0 
050024126415A006849D3046126A49C4 
17800F182DB0E410C0IB421E90469069 
05A007A84E804A1“ 

500 DATA "06A42A413C00AA14A5160 
O16006C21B502E1OCA51A0OACO24BO4A 
194A5AC01B684A11A412CA59682E903D 
044817403AC4BA8" 

509 REM *#*NUM O *#* 

510 DATA "0E098A131F311E32EBC38 
78530C38F72C3730C0C384E1DOF873EO 
4CAC130310C70C8E0C383C7OC1A33663 
90C18204C180870” 

520 DATA "028835400010280000041 
AO1F20401EC96E136019648B512402D0 
97S0A4i26906DA152009026497583F40 
A752ED34A49A325" 

530 DATA "B3006917B40A411249B60 
5A590348248049128A502925A04B7C86 
D06D25AA512025800249248259202419 
640C804AC0B6592“ 

540 DATA “251025000000000000000 
004202A08S002560480010000146C13B 
19800489891200032266124000819990 
809021132010101" 

550 DATA “890CC00001600A8100201 
804C000300E4231OC040081SD0201OOC 
4200Í C0003884C060000C02390020020 
106001002810000“ 

559 REM ***N JM 1 #*# 

560 DATA "06FF02C1OOOOFFOOEOOOO 
OFD00300000FE311E00003EC10681000 
EF1OOE10002FD007800007E811E00187 
2C10E011C08F900" 

570 DATA "C10601BE01E002811E611 
E811C02EF32C11C00F700E103C17485E 
C62113609C4262201B900000004E9000 
Ó00007BOOOOOOOO" 

530 DATA *960100000016A10000000 
871OOOOOOOO 7 BOOOOOOOOAC000000004 
E8000000016810000001AA10016AC0CD 
90744COOC999913" 

590 DATA "3127626E0011266266020 
800919981C498999E846600C02281998 
5E63231C086388D6030400E847018C21 
E22190430861198" 

600 DATA "06300611CE00OD6OC5220 
10410E63881020D700960100D7OOD600 
OC21C421000301F20180010068900000 
C00810031080070" 

609 REM ***NUM 2 *** 

610 DATA "DUC00380AE11E010E06F 
19C812681FC220140E13EOOC120E01EC 
3380C3C0693DD001C02C170010631700 
E8103C138068140" 

620 DATA "FOOEOOE02078068170000 
E01E00EO08681780201OOEOOE10C0083 
80609700C1EOOE10C000781F00D0082C 
13C408120F00CQ0" 

630 DATA "C00078060130001COOC13 
0001EOOE11C000601780701068170060 
100E11C008900E11E00C100780601400 
01802B1220O0E0O" 

640 DATA "ED00000281C6000000E1O 
001OOOO 38 OOCOOOOOOEOOOOOOOOOOFOO 
0000000000000004018A0A20F221A182 
43E37D4212C6B1C" 

650 DATA “B66481C8A5CC446358695 
B7C962C16529A1B0D85B29481128E6C0 
961AD2F85A5A58B25D3686CD03990294 
C1825B522D1924E* 

659 REM **#NUM 3 *#* 

660 DATA "DEB2D8F05ECD599878521 
869C4FB8383B1322761E0007C02E13E8 
0FC8EC1FD276336A15F05DC8C4B40480 
020000000800000" 

670 DATA "025013D1E5A2B12544ABD 
4SAA4299A05801B231E00F11E8108135 
81ÓC49CB3759A250A6D9A29A55865D82 
7D825D837C83107" 

680 DATA "EC93E4BE424827D825B12 
7D86D92F805DA23D34A2377887D26D14 
AC82F81D848B14AE1920036886C0691O 
AA09804E112E516" 


¿90 DATA "81B600AC06D14E0i3F007 
90A6192C03D07B144619E41B602F14EC 
iB800F30AE13208D827D96E01FC82E00 
E805E21F806E01E" 

700 DATA "C12E13C91EB10A812C063 
602Al 1E6128D80520BAC743877C78361 
2587838E60D1E3878E03D306278E01D2 
E7F11D38FA3C970* 

709 REM *#*NUM 4 *** 

710 DATA "OOOOOOOOOOOOOE9100000 
E830E010006818F813E0F87BE813C02E 
306C11E017842E13E013COOF90E00368 
37B0E1932C33D06 * 

720 DATA "OD60708E46118D708D623 
1C5AC4231B1C18622119918C489C7841 
81AC4C4460604303B73208718350991C 
80E4CD824004011" 

730 DATA "000103000000000000000 

oooooooooooooooooooooooooooooooo 
00000000000000000000000000000000 
OOOOOOOOOOOOOOO" 

740 DATA *00000000631F8980E680F 
E20993960E18C25809E0400B13323312 
24423421031448000000092402C21261 
A007722B11301FO" 

750 DATA “1909C52211D9866630896 
C060000B96201C218E21CC5621D700FE 
019C61D02B900021F01COOOCOOOC1300 
OOOOOOOOOOOOOOO 0 

759 REM ***NUM 5 *** 

760 DATA -34E28FCD8F370C0D4C78E 
2CD871F131727F8EE78E2BD607C5A073 
260EOC28709E3873C7860FOCC5C78FE8 
4CDC2977873C5B2" 

770 DATA "F3CC90914FB3399EB3842 
4FEE100555B2180044DBA238415519B6 
5500553DAA3A20AA037EC6C2451B45D8 
411085268908112" 

780 DATA "2SEAA1540100OAB541OO2 
A84EB90110A4Ü6FB0900040FE81OOOOO 
07EC10000003EE1OOOOOOOEF90000000 
OFDOOOOOOOOFEO1" 

790 DATA “00000002E1OOOOOAOO 8 OO 
00000200000000000000000000000001 
8E46235CB621099C4990C6646109DC63 
04C621181621148“ 

800 DATA “8140003EFF000002FD06C 
1Ü046E90E013C02F902810002EDOOC10 
200BE847000C07EA13DOOA05EEDOSOOO 
43AFD07000826FE" 

809 REM ***NUM ó 

810 DATA "840000C3864420013C91C 
8B35A2DC026487933098C1065C8A7483 
365C82788974D936C8A2025C827C205B 
292259248B368B5" 

820 DATA “C265E8B7349065EC96486 
5081A28B524A00C15DA48292145378A4 
49AA39A40Ó1202C17D00A003BOA6D450 
102404949A802A4" 

830 DATA "16D09A825692F602D0164 
16F01690A594A414A42D40B690A01SAO 
09E00F014013E00681421OEOÍOOOADOO 
681001694240100" 

840 DATA "0AD3128OOO0AD200A000C 
4ED00400004650000000AÓD000000202 
2C00002387E0000181131231D1085028 
719F870C0E9D912’ 

850 DATA "F13CSEO183C1E81884722 
92AFA0239085C6A231713F 13E1E1C18C 
F1F0E8F283E0FCD41C6F2793C1A7860E 
2C31E892C7E01C7" 

859 REM ***NUM 7 *#* 

860 DATA "7468733A28304C868C198 
A8DOD0708059E508A40BB8871D846411 
1AA218A0DB09011611755802222AAEOO 
AO109AEA11E8108“ 

870 DATA "42D602D404A128617F694 
B0069097507D01AD05E4B7A03DA025C 1 
7D10C21B653FA002C25B25E92D2D86D9 
5DA2817C8779C92" 

880 DATA "48A7DA25D2482798778AC 
83408810200000000000000000000000 

oooooooooooooooooooooooooooooooo 

OOOOOOOOOOOOOOO" 

890 DATA “OOOOOOOOOOOOÜOOOOOOOO 
OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
0000000002826992770A47D68B708AOO 
A21CE1100005913" 
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900 DATA "48259A4035924934B2583 
A402C07B25A493582586DA13583DA482 
52A45AD169A4E65B403924EA05AG065A 
4695A8069246916" 

909 REM ***NUM 8 *** 

910 DATA “3E00F11C600EO17806212 
E817C068104E10E01E008F0068176003 
C00E11CC10600FOOE7002853C033906F 
11E821 DO2798670 * 

920 DATA *1DC23C42E012310EC07EO 
27002606E8Q3B7267400000000000000 
OO00O0000OOOOOOOO0000O0000O00O00 
000000000000000“ 

930 DATA "OOOOOOOOÜOOOOOOOOOOOO 
000000000000000085503000QOB1OOAO 
B063A1 2572B20F9E040CF9075B941A5F 
83507224B609QAE“ 

940 DATA "DFFE027731066íA171FF4 
DBC5902C06D742EA728135E0F4800691 
10EA5C8813324FC008448F344CO1A80D 
90CC1B802F11E81" 

950 DATA "E90E407000EOOE40380C6 
03C30F0OCCOOE43B904201D04B906609 
FA1DE029966E17E209922ED360i 461OE 
12E8526187SOD81■ 

959 REM ***NUM 9 *** 

960 DATA "00003EO100000000F1000 
000007800000000061OOOOOOGOOCO08C 
100000EOÚ8C00O0OOC13081000038021 
100004E009C004Q" 

970 DATA "00C90E406600C884C0260 
0É644C40C802744C899236C9367C8937 
4A93500B108B35A41900372244308412 
A45A91049046949" 

980 DATA "25B59A5B2865B69256809 
2DA49AC4196CA69256996249A48D02C2 
592019A24A9280112C82B449B44EC92B 
7582306CC980364 * 

990 DATA "001210240001OODOOOOlO 
0000021000002200C800080820012000 
60801009000000048168008000010D80 
00000001A132424" 

lOOO DATA "0808234E803406D827S82 
926D82D922D136D1AC02792B44A4i2F5 
2AC13D04BA5A3AB482D924A65B512CA6 
7D0B48A4827D22C" 

1100 REM INICIAR 

1102 PRINT INK 2;j?'\PER 5; FLASH 
1 j AT 0,4! “ ???????????????????? 

77 n 

1103 PRINT INK 25 PAPER 5; FLASH 
1 iAT 7.4;"?77?77777777?77777777 

7 ? * 

1104 FOR 1=0 TO 7 3TEP 2: PRINT 
INK 2; PAPER 5; FLASH 1 iAT I,4 ; “ 

";A T 1 + 1,4;"?" 

1105 PRINT INK 2! PAPER 5f FLASH 

1;AT 1,27;"?”5AT 1+1,27;" ": NE 

XT I 

1106 PRINT AT 2,7;“SINTETIZADOR 
DE VOZ"iAT 3,105"PARA NUMEROS"; 

PLOT 50,135: FOR X = -30 TO -5 ST 
EP .5: DRAW INK 3;3,<RND-.50>*5; 
BEEP .05,X: NEXT X 

1107 GO SUB 4000: GO SUB 3000: P 
RINT «O; "ESPERE 2 MINUTOS Y MEDI 
0. , . ‘ 

1108 PAUSE 30: PRINT AT 21,13; P 
APER 2; INK &i JULIO A, ALTERA 
CH" 

1110 RESTORE : LET D=ó5293: GO S 
UB 50: REM LECTURA DE PROGR. 

1200 FOR L=3iO TO 960 STEP 50 
1203 RESTORE L 

1205 LET D=((L-310)/50+240>*256+ 
226 

1210 FOR G=i TO 5 
1250 BEEP .008,40 
1260 GO SUB 50 
1270 NEXT G 
1280 NEXT L 
1290 RETURN 
3000 REM SONIDO 

3010 FOR 1=15 TO O STEP -lí FOR 
J=i 0 + 3*1 TO 1*3 STEP BEEP .0 

1,J: NEXT J: NEXT I 
3020 FOR 1=0 TO -30 STEP -i: BEE 
P ,01,1: NEXT I 


3030 RETURN 

4000 REM GRAFICO 

4010 FOR 1=106 TO O STEP -5 

4020 INK 1/15+1: LET L=175-I: LE 

T X=27/106*1 

4030 PLOT X,175: DRAW 0,-L: DRAW 
256-2*X,0: DRAW 0,L 
4040 NEXT I 
4050 INK 7 

4060 FOR X=0 TO 255 STEP 255/20 
4070 PLOT INK 8;X,0: DRAW INK 8¡ 
27*!125-X)/125,106 
4080 NEXT X 
4100 RETURN 

5000 REM INSTRUCCIONES 
5010 CLS 

5020 LET A*="£ste programa logra 
sintetizar una voz digital, pr 
onuncUnda números y ciertos s 
ígnos contenidos en la variable 
2*.": GO SUB 8000 
5025 GO SUB 8500 

5030 CLS : LET A«="La forma de u 
sarlo es simple. Por ejemplo, 

si quiere que la maquina pronu 

ncie el numero uno,debe asignar 
’1* a Z$ y llamar a la subrutin 
a de un solo paso en la linea 9 
999.": GO SUB 3000 
5032 GO SUB 8500 
5035 PRINT AT 10,0: LET A*= 

" LET A*=*"l"GO SUB 999 
9 suena....": 

GO SUB 8000: PAUSE RET: LET z*=" 
1 ": GO SUB 9999 
5040 GO SUB 8500 

5050 CLS : LET A*="Otro ejemplo 
usando mas de una cifra:"+CHRÍ 
13+" LET A*=""4490"": GO SUB 9 
999 suena..,.“: GO SUB 800 

O: PAUSE RET: LEI z*="4490": 60 
SUB 9999 

5060 GO SUB 8500 

5070 CLS : LET AÍ="Estan incluid 
os los signos re 1 a-ci onados con 
numeras. Estos son 

GO SUB 8000 

5030 PAUSE 30: PRINT : LET a$=". 

(punto)": LET zS=".'‘: 60 SUB 8 

000: GO SUB 9999 

5090 PAUSE 30: PRINT : LET a*="- 
(menos)": LET : GO SUB 8 

000: GO SUB 9999 

5095 PAUSE 30: PRINT : LET a*=" + 
(mas)": LET z*="+": GO SUB 800 
O: GO SUB 9999 

5100 PAUSE 30: PRINI : LET *$="£ 
(exponencial)": LET zí="E 11 : GO 
SUB 8000: GO SUB 9999 
5110 GO SUB 8500 

5120 CLS : LET A*=“ ....EJE 

MPLOS..,.": GO SUB 8000 
5130 PRINT LET A$="LET Z$="" 

3.14"":GOSUB 9999": 60 SUB 8000: 

PAUSE RET: LET Z*=“3.14": GO SU 
B 9999: GO SUB 8500 
5140 PRINT LET A®= *LET ZS="" 

-8.51“":GOSUB 9999': LET ZÍ=*-8. 
51": GO SUB 8000: PAUSE RET: GO 
SUB 9999: GO SUB 8500 
5150 PRINT *•: LET A$="LET 2*="“ 
2.45E+12"":GOSUB 9999": LET Z*=" 
2.45E+12": GO SUB 8000: PAUSE RE 
T: GO SUB 9999: GO SUB 8500 
5160 PRINT **: LET AS="Uti 1 izand 

a STR*.GO SUB 8000: PAU 

SE 40 

5170 PRINT **: LET A*=“LET FF=23 
;LET Z*=STR* FF:GOSUB 9999": GO 
SUB 8000: PAUSE RET: LET FF=23: 
LEJ Z$=STR* FF! GO SUB 9999: GO 
SUfi 3500 

5180 PRINT LET AS="LET PEPE= 

4*5: LET Z*=STR* PEPE:GOSUB 9999 

“:*go sub sooo: pause ret: let p 

EP£=4*5: LET Z*=STR* PEPE: GO SU 

B 9999: GO SUB 8500 

5190 CLS : LET A*=“E1 programa e 


s útil en el momen-to de veri-fie 
ar una serie de va-lores introdu 
cides en la maquinay simplemente 
, a medida que la computadora 1 
os va dictando se comparan con 
los números orí- ginales,": GO 
SUB 8000: GO SUB 8500 
5200 PRINT LET A*="Esto ulti 

mo es aplicable a la verifi.cacio 
n de sentencias DATA mediante 
un bucle: 10 READ 

A:LET Z*=STR9¡ A:GOSUB 9999:PAUS 
E 10: GOTO 10" 

5210 GO SUB 8000: GO SUB 8500 
5220 CLS : LET A$=*Se puede usar 
el programa para dictar numero 
s en el caso de no poseer una im 
presera.': GO SUB 8000: GO SUB 8 
500 

5225 CLS : LET a*="Modifi cando e 
1 valor a la vari a-ble reservada 
TONO en la subrutina de la line 
a 9999, obtendrá uncambio er> la 
pranunciacion.“: GO SUB 8000: GG 
SUB 8500 

5230 CLS : LET Afc="Pars guardar 
en cinta el progra-ma :"+CHR$ 13 
+ "l-bor-rar todas las lineas meno 
s la 9999.": GO SUB 8000: GO SUB 
8500 

5240 PRINT : LET A*= 

2- guardar en cinta ISAVE ""voz"" 

GO SUB 8000: GO SUB 8500 
5250 PRINT : LET a*= " 

3- hacer :"+CHR* 13+" SAVE *"v 
02" CODE 61600,3760": GO SUB 80 
00: GO SUB 8500 

5300 CLS : LET A$= 

Para cargar el programa teniendo 
otro en memoria, usar: 

MERGE ..¡LOAD """" CODE 

recordando que la linea 9999 
esta reservada.": GO SUB 800 
0: GO SUB 8500 
5305 PRINT ’’: LET a*= 

Las variables Z, Z* y TOMO están 
reservadas para uso de la subru¬ 
tina.’: GO SUB 8000: GO SUB 8500 

5307 CLS : LET A$="SIGNOS Y NUME 
ROS PERMITIDOS:"+CHR$ 13+"0"+CHR 

* 13+“1"+CHR4 13+"2"+CHR$ i3+"3* 
+CHRS 13+“4“+CHRÍ 13+"5"+CHR* 13 
+ "6“+CHRÍ 13+"7* +CHRÍ 13+"8“+CHR 

* 13+“9"+CHR* 13+"+“+CHRÍ 13+"-" 
+ CHRS 13+”."+CHR* 13+"E": 

5308 GO SUB 8000: GO SUB 8500 
5310 CLS : LET a*=“ quiere ver- nu 
evamente las ins- trucciones ? 
(s/n)": GO SUB 8000 

5320 INPUT LINE a*: IF a*="S" TH 
EN GO TO 500C 
5330 RETURN 

8000 REM VISUALIZAD ION 
8005 OVER O; PLOT 0,0: DRAW 255, 
O: DRAW 0,175: DRAW -255,0: DRAW 
0,-175: OVER 1 
8010 FOR 1=1 TO LEN A$ 

8020 PRINT A*(I)? 

8025 IF I/3=1NT (1/3) THEN BEEP 

,005,RND*40 

3030 NEXT I 

8040 RETURN 

8500 REM RETARDO 

8510 PAUSE 40: PRINT #0f AT 0,0;" 

presione una tecla para seguir., 
■ 

8520 IF INKEY$="“ THEN GO TO 852 
O 

8525 PRINT #0\AT 0,0i tt 

11 

8530 RETURN 

9999 LET T0N0=28: POKE 23758,226 
: FOR Z=1 TO LEN z*¡ POKE 23760, 
TONO+3*(Z=LEN Z*) : POKE 23759,(< 
CODE z*(Z)+l?6> AND CODE z*(Z)>= 
45)-(22 AND CODE Z$(Z)=69)+(240 
AND CODE Z*(Z)=43): RANBOMIZE US 
R 65293: NEXT Z: RETURN 
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El Programador de Código de Má¬ 
quina se alista a transmitir sus prime¬ 
ros logros a la expectante criatura 
electrónica. 

Después de una ímproba tarea obser¬ 
va, ya sin asombrarse, que sus ilusio¬ 
nes se atomizan en cuestión de se¬ 
gundos. Desalentado y con rabia, el 
pequeño Homo Sapiens murmuró: 
-Otra vez colgada... Monte! 

El clic del interruptor desconectó los 
signos vitales del microprocesador. El 
compucidio se hizo patente un se¬ 
gundo más tarde y sin ceremonias 
ulteriores, la computadora fue ente¬ 
rrada con su ataúd de telgopor en 
una fosa acartonada hecha a medida. 
Esta fue una escena corriente duran¬ 
te unas semanas, hasta que el espéci¬ 
men advirtió que el citado fenómeno 
ocurría al manejar la siguiente ins¬ 
trucción, mientras intentaba hacer 
correr más rápidamente sus progra¬ 
mas, conforme aun consejo de su tío 
Mono: 

DI 

Finalmente, como nuestro Homo Sa¬ 
piens tiene vocación de servicio, ha 
decidido comunicamos sus hallaz¬ 
gos, como aporte al sindicato de 
computadoras colgadas. 

Para comenzar, una interrupción se¬ 
rá justamente éso, una discontinui¬ 
dad. Posteriormente veremos 
cuál fue el problema de nuestro ase¬ 
sino de transistores. 

El Z-80 tiene 3 maneras de respon¬ 
der frente a una interrupción, canali¬ 
zadas en 3 modos! IMO (Interrupt 
Mode 0), IM1, eJM2. 

Por omisión se sobreentiende IMO (es 
decir, desde que se le da tensión a 
procesador, hasta que se le ordena 
cambiarlo). Esto le permite respon¬ 
der frente a una de ellas de igual ma¬ 
nera que su padre, el INTEL 8080; 
uno de los requisitos para que el Z-80 
sea compatible con todo el software 
de su papá, por ejemplo CP/M. Este 
tipo de interrupciones no interesa¬ 
ron al Homo Sapiens porque supo¬ 
nía un nivel demasiado alto de pro¬ 
gramación y porque para sus nece¬ 
sidades no aportaba nada. 

En el IM1 (que usa nuestra computa- 
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dora), cuando se produce una inte¬ 
rrupción, el control del programa pa¬ 
sa a la dirección 38Hex, con un pro¬ 
ceso similar al del RST, Allí se en¬ 
cuentran las rutinas que leen el tecla¬ 
do e incrementan la variable del sis¬ 
tema FRAMES. 

Este proceso se realiza con una fre¬ 
cuencia de 62.5 veces por segundo 
de la manera siguiente: por una de las 
líneas (patitas) del procesador, se le 
solicita a éste la interrupción median¬ 
te una señal. Esté donde esté corrien¬ 
do, el procesador responderá de 
acuerdo con el modo en que se en¬ 
cuentre. En 1M1 llamará a 38Hex y 
después volverá al lugar en el que es¬ 
taba realizando las tareas cuando lo 
“pescó' la interrupción, siguiendo co¬ 
mo si nada lo hubiese molestado. 
La implementación de tal artificio 
asombró al Sapiens ya que con ésto 
nos evitábamos armar un sistema 
operativo que hubiera tenido que 
leer el teclado de una manera más 
engorrosa. 

Pero está de más decir que no todos 
los programas requieren que cada 
l/60s se lea el teclado. Ni siquiera el 
pulpo extraterrestre que tiene nues¬ 
tro personaje encerrado en la pecera 
podría pasarse más de un minuto 
apretando teclas sin parar, para ex¬ 
primir a fondo semejante capacidad. 
Su programa, que calculaba integra¬ 
les, requería una única entrada de da¬ 
tos al principio (léase necesidad de 
interrupciones que “sientan” el ex¬ 
terior), de modo que las 60 veces que 
le leían el teclado mientras calculaba, 
eran desperdiciadas. 

En eso andaba Sapiens cuando colgó 
su máquina. Sabía que si le tapaba las 
orejas al Z-80 (cortando las interrup¬ 
ciones mientras calculaba), éste no 


escucharía la señal del chip perifé¬ 
rico que le recordaba su interrup¬ 
ción, por lo que ganaría valioso tiem¬ 
po al no ejecutarse la rutina 38Hex. Y 
tan bien lo hizo que el procesador 
quedó sordo durante lo que restó de 
su periódica vida (porque después de 
haberlas cortado y corrido, no fue¬ 
ron habilitadas). La única salida fue 
empezar todo de nuevo, vía enchufe 
o interruptor. 

Las instrucciones que controlan la 
habilitación de las interrupciones son 
El (enable interrupt) y DI {disable in- 
terrupt). Después de un El, el flag IFF 
(Interrupt Flip Flop) es prendido, per¬ 
mitiendo a la señal de interrupciones 
ser reconocida. Este flag permanece¬ 
rá así hasta que un DI se ejecute (lo 
que hará obviarlas) o nos encontra¬ 
remos en una rutina de interrupción. 
Esto último, porque si al encontrar¬ 
nos allí, el procesador responde a la 
interrupción que llega, saltará nueva¬ 
mente a la rutina que está corriendo, 
re-llamándose hasta el infinito. 

De modo que antes de volver desde 
la rutina de interrupciones con RETI 
(RET desde una interrupción), debe¬ 
remos poner El (para habilitarlas nue¬ 
vamente). Una espera en el recono¬ 
cimiento de las interrupciones des¬ 
pués de ejecutarse dicha instrucción 
permite fijarse si lo que sigue es un 
RETI, y de esa manera saltar ensegui¬ 
da al programa principal, retomán¬ 
dolo, sin peligro de que las interrup¬ 
ciones nos “atrapen" justo cuando 
salimos de la rutina a la cual nos ha¬ 
bían mandado. Como la desinterrup- 
titis es contagiosa e histerizante, Sa¬ 
piens aconsejó usar estas instruccio¬ 
nes de a pares, nunca de a una por 
vez, sobre todo DI. 

El tercer modo de interrupción está 


pensado para el uso del pueblo; y pa¬ 
ra facilitarle las cosas al pueblo, todo 
lo comunicado puede aplicarse, Al 
seleccionar el IM2, la rutina 38Hex 
dejará de realizarse, porque pertene¬ 
ce a una modalidad que ya no corre. 
En este universo podemos ordenar¬ 
le al procesador que salte a la rutina 
de interrupciones que quemamos. 
Cuando se le solicita la interrupción 
en IM2, por el bus de datos se la en¬ 
vía al procesador 8 bits que corres¬ 
ponden al byte menos significativo de 
una dirección a la que llamaremos 
puntero. El byte más significativo de 
esa dirección es aportado por el re¬ 
gistro I. Esta dirección puntero (resul¬ 
tante de l*256+bus) contiene otra 
dirección que indica el lugar al cual 
saltará en la interrupción. (Ej.: si 
I =128 y bus =10. la dirección punte¬ 
ro será 32768, y en 32768 y 32769 
se encontrará guardada la verdadera 
localización de la rutina de interrup¬ 
ciones). 

Aquí nos encontramos con el con¬ 
flicto que ocasionó unas largas vaca¬ 
ciones en el Borda a nuestro Sapiens. 
Le resultó imposible avenguar cuál 
era el dato que mandaban al bus. por 
lo que la dirección puntero podía va¬ 
riar en un rango de 256 posibilida¬ 
des. Por ej.: si I =128 y el bus de datos 
es desconocido, la dirección puntero 
puede variar entre 32768 y 33024. 
Si nosotros supiéramos que el dato 
del bus es cero, estaríamos seguros 
de que la dirección puntero se encon¬ 
traría en 32768 y 32769, Pero ni no¬ 
sotros sabemos eso, ni el Sapiens lo 
supo. Su psiquiatra, una medusa tro¬ 
pical, le aconsejó que se fabricara una 
“pista de atruuzaje’’, que consistía en 
un bloque íntegramente cargado con 
254. desde 32768 hasta 33025 (es- 
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to para í =128; si 1=133, desde 
34048 hasta 34305, etc.). Cualquie¬ 
ra fuese el dato del bus, combinado 
* 

con el registro 1 indicaría una direc¬ 
ción de esa “pista" y como el único 
dato que existe allí es 254, la direc¬ 
ción puntero y la siguiente conten¬ 
drán 254. De esa manera se obtendrá 
la dirección 65278 {254*265 +254), 
que es a la cual teóricamente debería 
saltar el procesador en cada interrup¬ 
ción. Si quisiéramos saltar a otra di¬ 
rección, ponemos en la pista otro 
dato, por ejemplo 200 y calculamos 
la dirección a la cual saltará: 200*256 
+200, Esta dirección puede ser tam¬ 
bién un JUMP a otra dirección que 
contenga realmente la rutina en cues¬ 
tión. 

Este tipo de rutinas se manejan de la 
manera habitual; pueden tener CALLS 
y RETS para llamar a otras direccio¬ 
nes útiles. Cuando encuentren un 
RETI (si los CALLS y RETS fueron 
usados convenientemente) volverán 
al programa principal, dando por ter¬ 
minada la rutina de interrupciones. 
Dos últimas recomendaciones. Las 
rutinas deberán ser cortas, porque al 
realizarse constantemente retardan 
mucho al programa. Calculen el tiem¬ 
po de la rutina y multiplíquenlo por 
62.5 para tener el incremento de 
tiempo para 1 segundo. Lo que sin 
interrupciones se realizaba en 1 se¬ 
gundo, ahora tardará 1 segundo más 
ese tiempo calculado, porque cada 
0.016s se nos “mete" una interrup¬ 
ción en el medio, como una cuña. La 
otra es hacer PUSH y POP con todos 
los registros (al principio de la rutina y 
al final, respectivamente) ya que si 
bien las interrupciones se manejan 
independientemente de! programa, 
usan sus registros y flags, ya que, des¬ 
pués de todo, también son progra¬ 
mas. 

Las interrupciones pueden servir pa¬ 
ra poner música de fondo a nuestros 
juegos independientemente del pro¬ 
grama principal, para temporizar pro¬ 
gramas científicos y recibir informa¬ 
ción en controles de procesos a un 
ritmo determinado (temperatura, hu¬ 
medad, presión, etc.), para leer la po¬ 
sición de algún joystíck, mouse o lápiz 
óptico constantemente. En fin, cual¬ 
quier tarea que requiera ser realizada 
rítmicamente y en forma indepen¬ 
diente del programa principal, podrá 
ser optimizada con el uso de las inte¬ 
rrupciones. 


Antes de despedimos conviene sa¬ 
ber que aparte de las interrupciones 
que se controlan por software con DI 
y El, llamadas enmascarabas, existen 
otras que no lo son. Una señal dife¬ 
rente es usada para realizar este tipo 
de interrupciones que siempre oca¬ 
sionan un salto a 56Hex. A diferencia 
de sus parientes, no se realizan cons¬ 
tantemente; sólo entran en el escena¬ 
rio cuando algún periférico se lo pide 
(por una de las salidas que tiene la 
computadora atrás). 

Programa 1: 

(no lleva programa en BASIC 
DI 

RET 

Si quisiéramos cortar las interrupcio¬ 
nes en algún momento, podríamos 
usar esta rutina o simplemente hacer 
DI en el medio del programa, a partir 
de donde quemamos que se corten, 
tal como lo hizo nuestro personaje. 
Pero cuando se requiera el servicio 
de las interrupciones (en IM1 la lec¬ 
tura del teclado y en EM2 nuestra ru¬ 
tina) para mantener el control del sis¬ 
tema, la máquina estará colgada (En 
IM1, por ej., no se leerá el teclado). 
Eso sí, todo lo que corra lo hará más 
rápido. 

Programa 2: 

(no lleva programa en BASIC) 

DI 

RUTINA A 
El 

Esto sería lo correcto, siempre y cuan¬ 
do la rutina A no requiera el uso de 
las interrupciones. Antes de realizar¬ 
se, DI le “tapa las orejas" al Z-80 para 
que corra esta rutina más rápido (léa¬ 
se sin interrupciones ni molestias del 
exterior). Al final, con El, retornamos 
al mundo normal. 

Los programas anteriores pueden 
correrse con esos resultados en cual¬ 
quiera de los modos de interrupción, 
Al cortar las interrupciones, no se 
llamará más a la rutina correspon¬ 
diente, acarreando los efectos de no 
realizarse la función que tenía con¬ 
fiada. 

Programa 3: 

(lleva programa en BASIC) 

-Bloque cargado con 250 entre 32768 
y 33025 
-En 3000: 

DI 

PUSH AF 


LD A, 128 
LD IA 
POP AF 
IM2 
El 

RET 

-En 64250: 

PUSH AF 
PUSH HL 
LD HL,65535 
Al LD A, (HL) 

OUT (254),A 
JR NZ,A1 
POP HL 
POP AF 
El 

RETI 

La máquina se cuelga, esta vez con 
las interrupciones puestas, en 1M2 y 
haciendo la rutina que le ordenamos. 
Vale la pena recordar los push y pop 
antes y después de la rutina para no 
alterar los registros, así como usar los 
CALL y RET de a pares para no cam¬ 
biar el lugar del stack a la vuelta de 
cada interrupción. No necesariamen¬ 
te nos limitaremos a hacer una rutina 
lineal que no salta a ningún lado, si¬ 
no que podemos llamar a cualquier 
dirección sin ningún temor, pero es¬ 
tando seguros de que volverem' .s a la 
la rutina al programa principa! con el 
stack idéntico al que teníamos antes 
de la interrupción (salvo si queremos 
cambiarlo intencionalmente porque 
implementamos tal uso). 


10 FOR a=32768 TO 33025 
20 POKE a, 250 
30 NEXT a 

40 DATA 243,245,62, 12S,237,71, 
241,237,04,£51.201 

50 DAT A 245. £29 .• 33,255,255, 126 
,211,254, 53.32. £50. 225,241,251. , 2 
37.77 

60 FOR a=30000 TO 30010 
70 READ >: 

SO POKE a 7 c 
85 NEXT a 

90 F r QR a=64250 T0 64265 
100 READ c 
LIO POKE +c 
120 NEXT a 

130 PRINT “PRESIONE ENTEE PARA 

VER- 1.OS PROGRAMAS QUE Rh 

STAN ESTAN DEL OTRO LADO": PAUS 
E O 

l 40 RANOÜHIZE USR 30000 
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Programa 4¡ 

(lleva programa en BASiC) 

-Igual a 3 pero en 64250 en lugar de 
RETI poner JP 38Hex 
Acá conseguimos el mismo efecto 
que antes, pero sin colgamos, porque 
saltamos a 38Hex. Le agregamos al 
principio de 38Hex ese pedacito que 
hicimos nosotros. Más exactamente, 
38Hex es una continuación de nues¬ 
tra rutina (no es un cali que llama a 
una sub-rutina y después vuelve, es 
un JUMP que ordena seguir con lo 
que encuentre allí). Para nuestra tran¬ 
quilidad, al final de 38Hex un peque¬ 
ño arreglo burocrático aún descono¬ 
cido devuelve el control al programa 
principal, volviendo de la interrup¬ 
ción como si encontrase El RETI. 


70 REAC c 
SO POKE *>: 

85 NEXT a 

90 FÜR a =*¿4250 TÜ 64252 
100 READ C 
11Q POKE 
120 NEXT a 

130 FRINT "PRESIONE ENTER PARA 
VER"s PAUSE 0 
140 RANDOMIZE USR 30000 


Programa 6 : 

(lleva programa en BASIC} 

-Bloque entre 32768 y 33025 con 
250 

-En 30000 la rutina que va en esa 
dirección de 3. 

-En 64250: 

PUSH AF 
PUSH HL 
JP 40000 
-En 40000: 

LD HL,50000 
LD (64253) ,HL 
LD A,O 
OUT (254),A 
POP HL 
POP AF 
JP 38HEX 
-En 50000: 

LD HL,400000 
LD (64253),HL 
LD A.7 
OUT (254).A 
POP HL 
POP AF 
JP 38HEX 

Las cosas se ponen más interesantes. 
En la primera interrupción, después 
de habilitar el IM2, saltamos a 40000. 
Allí se cambia la dirección del JUMP a 
50000 y saltamos a 38Hex para 
mantener el control de la máquina. 
En la segunda, saltamos a 50000 (re¬ 
cordemos que el JUMP había sido 
cambiado en la interrupción anterior). 
Cambiamos el JUMP nuevamente a 
40000 y saltamos a 38Hex. En la ter¬ 
cera, saltamos a 4( K 100, etc... El efec¬ 
to se consigue a partir de dos posi¬ 
bles derivaciones, una a 40000 y otra 
a 50000, con 2 datos distintos a 
mandar por el port 254. La imple- 
mentación cuidadosa de este tipo de 
estructuras, junto a programas que se 
automodifican pueden llegar a ser 
herramientas de gran poder tanto pa¬ 
ra el programador como para quien 
quiera ejercitarse en razonamientos 
complicados. 



Programa 7: 

(no lleva programa en BASIC) 

DI 

HALT 

La instrucción HALT detiene al pro¬ 
cesador hasta que se realice una in¬ 
terrupción. Cuando la señal llega, 
realiza la rutina de interrupciones y 
continúa el programa de manera nor¬ 
mal. Como DI corta las interrupcio¬ 
nes, HALT se queda esperando algo 
que nunca llegará. 

FIN 

programa principal, podrá ser opti¬ 
mizada con el uso de las interrupcio¬ 
nes. 

Antes de despedimos conviene saber 
que aparte de las interrupciones que 
se controlan por software con DI y El. 
llamadas enmascarables, existen otras 
que no lo son. Una señal diferente es 
usada para realizar esta tipo de inte¬ 
rrupciones que siempre ocasionan 
un salto a 56Hex. A diferencia de sus 
parientes, no se realizan constante¬ 
mente; sólo entran en el escenario 
cuando algún periférico se lo pide 
(por una de las salidas que tiene ¡a 
computadora atrás). 


r 

FÜR a™3276 

8 

T0 

33025 


20 

FÜKE a? 250 





30 

NEXT a 





40 

DATA 243,2 

45 

, 6 

ti -1 *-'C- -«"j 

J-, 7 ,L Km. ’ 6 

SI 7 1\ , 

241 ? 2 

;37, 94, 25 3. , 

20 

I 



50 

DATA 245,2 

29 

=. 3 

:!■ , ¿t ? L . 4 . <5 


254 7 53?32 7 

250, 

22£,241: 

i 95 ? 5 

6* OO 






60 

FOR a*=30000 

TÜ 

3001 0 


70 

READ c 





, 80 

POKE a,c 





85 

NEXT a 





90 

FOR ¿1=6425 

O 

TÜ 

64265 


100 

READ c 





110 

POKE a,c 





120 

NEXT a 





i 130 

PRINT "PRESI 

ONE ENTER 

PARA 

1 0E.R" 

: PAUSE 0 





r° 

RANDOMIZE 

US 

R 

30000 



Programa 5: 

(lleva programa en BASIC) 

-Igual a 3, pero en 64250 en lugar de 
la rutina va JP 38Hex y nada más. 
Obtenemos una simulación de 1M1 
en IM2. Se invoca a 64250 y desde 
allí se salta (no se llama) a 38Hex. El 
efecto es el mismo que el que nues¬ 
tra computadora realiza en IM1. 


10 FÜR a=3276S TÜ 33025 
20 POKE A .250 
30 NEXT a 

40 DATA 243* 245? 62=128.237.71 
241.237.94.251,201 
50 DATA 195,56.00 
60 FOR a=30000 TO 30010 
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COMP.: TK 83/85; CZ 1080/1500 
CONF.: 16 K 
CÍAS.: JUEGO 

AUTOR: Pablo Ignacio Bazán 



Comentarios previos 

Comienza la carrera con una presentación 
de! juego donde se explica su objetivo, 
cómo se maneja el auto y la forma de 
conteo de puntos. 

Luego, presionando una tecla, el juego 
comienza. 

Aparecen la pista y el auto titilando en la 
parte media inferior de la pantalla. Es el 
gráfico SHIFT A. 

Este se mueve a izquierda y derecha por 
medio de las teclas 5 y 8 respectivamente. 
El objetivo es lograr permanecer el mayor 
tiempo posible en la pista, sumando 
puntos. 



Una forma de lograr mayor puntaje es 
pisar todos los “$” que encontremos en 
nuestro camino, pues cada uno de éstos 
vale 10 puntos. 

La carrera consta de cinco vueltas al cir¬ 
cuito, que al terminar nos darán 75 
puntos. De no haber chocado obtendrá 
150 puntitos más; si chocó un auto 
tendrá sólo 100 puntos fijados por la 
computadora. 

Si tiene la suerte y la habilidad de acceder 
al podio, su ordenador le pedirá sus ini¬ 
ciales, a lo que deberá responder con los 
siguientes comandos: 

K: pasa las letras en el orden del abece¬ 
dario. 

J: pasa las letras en sentido inverso al del 
abecedario. 

O: fija la letra vista en pantalla y pasa a la 
siguiente. 

S: ubica un espacio en el cuadro y pasa a! 
siguiente. 

Es un buen entretenimiento que se presta 
para jugar con los amigos, y por qué no, 
para hacer pasar un papelón a los no 
tanto. 

Variables importantes 

M(): matriz de los puntos de records. 
M$(): matriz de iniciales de records. 

B$(), A$(): matrices que contienen la 
pista. 

L: cantidad de choques. 

P: cantidad de puntos ganados. 

C: número de vuelta en la que se chocó. 

Estructura del programa 

2 - 100 : inicialización de variables y re¬ 
gistros. 

104-600: desarrollo de la lógica prin¬ 
cipal. 

700-7600: distribución de puntaje, in¬ 
formación sobre su carrera y puntaje, y ló¬ 
gica de acceso a la tabla de records. 
8000-8100: inicialización de las va¬ 
riables que contienen la pista. 

9800-9998: rutina de explicación de 
uso del juego. 



Pag. 32 



























¿03 

IF PEEK O + Xi =12- 

¿000 


¿0-5 

P 0 K E u + X ., 3 

¿10 

NEXT G 

¿20 

FOP G=4 TC S 

¿¿5 

LET U*= £45 

£40 

PRINT ñT U5R 166 

£41 

LET ;■:=>+ INKEY* = 

= 5" 

¡ 

24¿ 

IF PEEK Q+Xí=13 

S +1 


£ 4.3 

IF PEEK ■ 0 + X i =12 

¿000 

£45 

P u K E Q + X . o 

£50 

NEXT G 

¿60 

FÜR G =9 Tü 12 ST 

¿65 

LET U$s ,, SeS M 

¿60 

PRINT PT U5R 156 

ÍG) J 


¿3 1 

L ET X = X + ■-1 N K E Y S = 

j¡="5 1 

' J 

£S£ 

Ir PEEK i 2+0=12 


T h El N Q O t O 


= 5 + 1 

233 IF PEEK 
2 (30 0 

235 POKE 9 + *' 3 

230 NEXT G 


THEN LET S 

2 -i- v i *126 THEN GL-TC ! 


300 

FOR G-12 

TC 1 

305 

LET U$ = " 

5 5 11 

32© 

PRINT PT 

"usp 

321 

LET X=X + 

lINKE 

iz 11 5 1 

j ‘i 


32¿ 

IF PEEK 

f, Q + > i 


m : 


_=13 THEN LET 5 

= S +1 

333 IF FEEK Q+Xi =133 THEN GOTO 

£000 

325 POKE 0+X.S 
330 NEXT G 
350 LET C=C + 1 
400 NEXT J 
402 FOR H = 0 TO ¿1 

500 LET UÍ="S0E" 

501 LET NADA =J5R 15613 

502 LET X *X + ( INKE Y S = “8 " i -l INKEX' 
4 = "5 "i 

503 IF PEER (G + >: LitlS THEN LET 5 
=5 + 1 

504 IF PEEK (Q + X!=125 THEN GOTO 
2000 

505 POKE ©+X , B 

5 0b IF H = 6 THEN F~ R IUT FlT 0. Y 

^07 IF h =6 THEN GO TO 550 
513 PRINT 



TERMINASTE 
'ENES 75 P¡J 


530 NEXT H 
550 FOR U =1 TO 70 
570 NEXT U 
6 00 C L 5 

-»00 PRINT "MUY BIEN 
EL CIRCUITO'*,,, 

750 PRINT "POP E5T0 
NT OS EXTRR5" 

755 FOP Y =1 TC £5 

756 NEXT Y 

800 ClS 

801 IF Ls0 THEN PRINT PiT 5,0, "T 
E QUEDARON LOS TPES AUTOS SANOS' 

S02 IF L*i THEN PRINT AT 5 . 0 ;"7 
E QUEDARON 005 PUTOS SANOS" 

303 IF l. =£ Th;M PRINT HT “ O; "T 
E QUEDO UN PUTO SANO" 

605 PRINT PT 10,0 "POR ESO TEÑE 
S -: í3-L) *50; " PUNTO* MAS" 

S10 LET K=7S 
812 FOR Yti TC 15 
314 NEXT Y 
320 FOR P=1 TO <=S 
830 NEXT P 

350 LET P=K+S+10+0+10+(3-L<*50 
850 IF P=0 THEN GOTO 210 
330 LET p = P +1NT (RNB+3) 

910 CLS 

220 PRINT "TU5 PUNTOS SON ", P 
950 GOTO 6000 
2300 FOR F =1 TO 4 
2130 POKE 0+X.S 
2110 POKE Q+X,0 

2120 NEXT F 

2121 POKE Q+X.S 

OI 03 I p™T“ ¡ -.1 + -1 

2122 IF L = 3 THEN LE^ Nfi0fl=U5R 16 
575 

212 4 - IF Ls3 THEN GOTO 2150 

2125 POKE Q+X.. 12S 

2126 IF PEEK i Q+ X + 1 J =125 THEN LE 


T X-*>1 

2127 IF PEEK Q+X-ií =128 THEN lE 
T X = X + 1 

212 6 PCK E y + X , 3 

2129 FOR U=1 TO 3 

2130 NEXT U 

2131 GOTO URL ü$ 

¿150 FOR U = 1 TO 8 
2155 NEXT U 

¿200 CLS 

2 300 PRINT M CHOChS^E M ..... 

¿4-00 PRINT “EN Lh UUELTfl NÜMEPC 


¡£_-00 GOTO 0^,9 
4000 DIN PÍÍ3..1Í 
4002 LlT D=342+PEEK 16396+2 
EK 16 397 

400 4 P R INH ft 1 O . ‘ir 1 .i 


5 8 + P E 


4006 PRINT h 


d i 


4.IC 1 


4003 PRINT A” 

■ 

4010 PRINT PT 11.9; "I 

a- 

4019 PRINT PT 12. S: 

a- 

4020 FOR F = 0 T¡1 5 5TEP 4 
4025 LET G =38 

4030 POKE D+F.G 

4040 IF INKE-í * = *'" THEN GOTO 4040 
4S50 LET KS-INKEYS 
4070 IF K* = " K" THEN LET G=G + 1 
4030 IF Kt="J" THEN LET G=G-i 
4090 IF K. $ = " O " THEN GOTO 4000 
4100 IF G í 33 THEN LET G=53 
4110 IF G >63 THEN LET G=3S 
4115 IF K $ = "5" THEN lET G=0 
4120 POKE D + F . ü 

413S IF K$ = "5" THEN GOTO 4£O0 

4140 GOTO 4040 

4200 LET R* í (F 4 i i-l? =CHRí G 

4235 IF INKEY# THEN GOTO 423 

5 

4240 NEXT F 

4260 LET M* t5J =P$ ílí +Rí Í2) +R$ í*'¡ 

4265 CLS 

4270 GOTO 6061 

6003 FOP T = 1 Tü 5 

6004 IF P>H (TI THEN GOTO 4000 

6005 NEXT T 

6006 GOTO 7G00 
6062 FAST 

6065 LET MÍ 6. 1 aR 
6070 FOR Fsl TO 6 
6080 FOR G =1 + F TO 6 
SG'90 1+ M l F) =H ÍG i THEN GOTO 6-14 
0 

6100 LET O =M iF ) 

6105 LET M(FísMiG) 

6110 LET M (G'i=0 
6120 LET F $ = H $ i F J 
6125 LET M$(F J =MS iG■ 

6130 LET MffGJsF* 

6140 NEXT G 
6150 NEXT F 
6160 SLü'J 
7000 CL3 

7010 PRINT "LOS MEJORES RECORDS 
SON : " 

7020 FOP F=1 TO E 

7030 IF MfF¡ >=1000 THEN PRINT PT 
3+ I F*2> ,9 ; ms <F>" M(F) 

7035 IF M'F) 1000 THEN PRINT HT 

3 + iF*2.9 ; MS tF) ; . M íF) 

7040 NEXT F 


7050 IF INKEY* = *••■ THEN GOTO 7350 
7060 CLS 
7600 GOTO 40 

8000 LET B$ (13 I* 



3007 LET B* £ 8 ) =" 


8003 LET B*(9)=B*í 
3009 LET 8$ E 10 i = 6 S 

3020 LET B$ ( 1 1. =5 £ 

3021 LET 5* (12) =Es 

3022 LET B S (13) =5 * 
•3023 LET B$tl4j=BS 
3024 
30 




LET A* ( 6 ) =fi£ í 4 ¡ 
LET A* i 73 =A* £ 3 3 
LET A* (31 =fll Í2) 
LET AS i y J =A$ ( 1 > 
lET A* (10.i = 



FORMULA 


3090 


8091 LET A* (12) sflííll'í 

3092 LET A* (133 =AS < 11! 

3093 LET fl*tl*J«fi$ (11) 

3094 LET A$ ( 153=A£ 1 11) 

3100 RETURN 
9000 SA'JE "FORMULA g 
9100 RUN 
9300 PRINT " 

3801 PRINT " wmtmmmmmmm" 

9802 PRINT 

9305 PRINT "USTED TIENE QUE TR«T 
nc r.p i niñean” 

9310 PRINT "EL MAYOR PUNTAJE POS 
IELE" 

9311 PRINT 4 

9320 PRINT "PAPA ESO USTED TIENE 
QUE SALTEAR" 

9321 PRINT 

9325 PRINT "LÜS OBSTACULOS 
ADEMAS DE ** , , 

9330 PRINT , "NO SALIRSE DE PISTA 

i I 

9840 PRINT "USTED MñNEJRRfi EL flü 
TO CON Jl , , 

9850 PRINT . J ' L 0 5 SIGUIENTES CONT 
ROLES :“ 

9660 PRINT 

9570 PRINT "5-MUEUE ñL PUTO HfiC I 
H Lñ IZO . ,f 
9830 PRINT 

9390 PRINT "3-MUEUE EL RUTO HRCI 
P LR DERECHA" 

9895 PRINT RT ¿i.O.” 


9900 IF INKEY $ = '■* “ THEN GOTO 9900 
9910 CLS 

9920 PRINT "PUNTAJE:" 

9925 PRINT 

9930 PRINT "USTED 5UHR PUNTOS h 

HEDIC-R QUE ,l 
PRI*NT 

3940 PRINT DPI MhS vUELTRS PL Cfl 

RCUITO 

9945 PRINT 

9350 PRINT "EN TOThL SON CINCO U 
UEuTRS QUE " 

3955 PRINT 

9960 PRINT "51 LfiS TERMINR ÜBTIE 
NE 75 PUNTOS" 

9365 PRINT 

9970 PRINT "EXTRftS" 

99" 7 5 PRINT 

9980 PRINT "USTED RUHENTR SU PUN 
TAJE SI CÜfiE " 

9985 PRINT 

9966 PRINT TlQS que HhV EN 

LP PISTA" 

9937 PRINT 

993S PRINT "USTED TIENE SOLO TRE 
S PUTOS " 

9939 P RINT 

9990 PRINT "NO LOS PIERDA" 

9991 PRINT " BU 

ENR SUERTE " 

9992 PRINT RT 


1 ! 0 ; " 


9994 IF INKEY $ = " THEN GOTO 399 4 

9996 CLS 

9997 RflND 
9993 RETURN 
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TV COLOR ¡TIENE QUE REFORMARLO! 


A PAL-N 


CONVERSION DE SISTEMAS DE: 


o A NTSC 


T.V. COLOR - COMPUTADORAS - ATARI - VIDEOS 

SOMOS FABRICANTES DEL 
UNICO MODULO DE CONVERSION CON TA 7193 


MODULOS DE CONVERSION APAL-No NTSC PRODUCIDOS BAJO AUSPICIO DETOKYO CENTRALTRADINQ CO. LTD.TOKYO-JAPON 


DESDE HACE 5 AÑOS AL SERVICIO DE LA CONVERSION DE SISTEMAS 


ATENCION INTERIOR; =1=^= 
CHEQUES O GIROS A NOMBR E DE 

ADRIAN A. FERNANDEZ = 


PRECIOS ESPECIALES A 


REVENDEDORES Y MAYORISTAS 


JOSE MARIA MORENO 452 
* — TEU 923-2610 — 
-^ 1424 - CAPITAL 


4 

* 
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Los usuarios de las Sinclair 9 
CZ o TK pueden plantear sus 
dudas y sugerencias en esta 
sección . Deben escribirnos a 
Cerrito 1320 , piso 1°, Buenos 
Aires (1010). Anticipándonos 
a las preguntas, contestamos 
algunos interrogantes más 
comunes - 



Afilio 


var en cinta de la forma 10 PRINT “A”: GOTO 


i Cuidado! 

Tengo un Spectrum de 
48 K y una impresora 
térmica; el problema 
surge cuando, al que- 
rer conectar la impre- 
sora para realizar al- 
guna operación con 
ella, el ordenador que- 
da bloqueado, la im¬ 
presora se pone en fun¬ 
cionamiento sin parar 
y como broche de oro 
pierdo el programa que 
quería imprimir. 

¿Es normal que esto 
ocurra? 

Es perfectamente lógico 
que te ocurra eso, lo raro 
quizá sena que no te ocu¬ 
rriera algo más (como por 
ejemplo que el problema 
no pase al desconectar y 
volver a conectar el orde¬ 
nador). Hay que tener mu¬ 
cho cuidado con las co¬ 
nexiones que se efectúan 
en el port de expansión. 
En el caso de querer im¬ 
primir algo y no tener co¬ 
nectada la impresora, se 
deberá salvar en cinta el 
programa, con el orde¬ 
nador sin alimentación co¬ 
nectar la impresora, luego 
conectar la alimentación 
y por último cargar el pro¬ 
grama. 

Break 

¿Cómo me puedo in¬ 
troducir en un progra¬ 
ma que lleva un POKE 
23659,0 cuando se es¬ 
tá ejecutando?, ¿cómo 
lo puedo copiar? 

Una vez que está ejecu¬ 
tado no es cosa fácil rom¬ 
per un programa que lle¬ 
va este tipo de protección, 
pero si ai cargarlo hacés 
MERGE en lugar de 
LOAD el programa no 
se autoejecutará, por lo 
que se podrá buscar la lí¬ 
nea donde se efectúa el 
POKE y, tras suprimirla, 
tendrás una versión sin 
proteger que podrás sal- 


habitual. 

Amplificación 

Desearía saber si al 
Spectrum es posible 
conectarle un amplifi¬ 
cador normal u córnen¬ 
te, esto es: mono, de 5 
watts de salida y una 
sensibilidad de entra¬ 
da de 100 mv sobre 
250 kohms sin perjui¬ 
cio para el mismo. 

Nu debe existir ningún 
problema si se utiliza la 
toma de EAR para ello, ni 
el ordenador ni el ampli¬ 
ficador pueden resultar 
dañados. 

Errata 

Escriban un programa 
que contenga un bucle 
en el Spectrum. 

Por ejemplo: 


10 

Corran et programa, 
al primer “SCROLL ?" 
CAPS y SYMBOL SH1FT 
juntos, y al aparecer 
en la línea 22 otra vez 
RUN (?), pulsen cual¬ 
quier tecla... 

... V por favor, dígan¬ 
me qué es lo que sin 
querer he hecho apa¬ 
recer en las pantallas 
siguientes. 

Este efecto se debe a una 
errata de la ROM que ha¬ 
ce que si pulsamos los 
SH1FT cuando se nos pre¬ 
gunta SCROLL? aparez¬ 
ca en la parte baja de la 
pantalla lo que haya en 
ese momento en la zona 
de edición (normalmen¬ 
te, la última orden intro¬ 
ducida), A partir de ahí el 
sistema operativo puede 
perder el control e impri¬ 


mir caracteres correspon¬ 
dientes a cualquier zona 
de la memoria, con el re¬ 
sultado ya conocido. El 
mismo efecto ocurre en la 

TS 2068. 

Free 

La rutina ROM65536 - 
USR 7962 da la me¬ 
moria que queda dis- 
ponible en el Spectrum. 
Sin embargo, tengo al¬ 
gunos programas que 
dan el mensaje 4 (Out 
of memory) con resul¬ 
tados de esta rutina 
que indican que queda 
memoria disponible. 
¿Hay alguna rutina más 
fiable en este sentido? 

Es muy probable que, aun¬ 
que en esos casos dispu¬ 
sieras de algo de memo¬ 
ria líbre, la sentencia de la 
línea del programa que 
da el mensaje de error 
gastara, al ejecutarse, una 
cantidad mayor de la que 
había (por ejemplo una 
sentencia DIM. etc.). 

Por otra parte se debe te¬ 
ner en cuenta que para 
ejecutar un programa en 
ordenador se necesita dis¬ 
poner de algo de espacio 
para los cálculos intemos, 
almacenamiento de datos 
definir variables, etc. De 
ahí que. aunque se pue¬ 
da introducir sin proble¬ 
mas un determinado pro¬ 
grama e incluso sobre al¬ 
go de memoria, éste no 
pueda ejecutarse. 

Slow~Fast 

Si quiero suprimir las 
instrucciones SLOW y 
FAST de un programa 
para 1500 con el fin de 
adaptarlo a mi 2068, 
¿tengo que modificar 
o insertar algo? 

El TS 2068 trabaja siem¬ 
pre en modo rápido, por 
lo que bastará con supri¬ 
mir estas sentencias del 
listado. 
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congreso nacional 
de informática 


y teleinformatica 

Buenos Aires, Sheraton Hotel, 
del 19 al 23 de mayo de 1986 

El COMITE ACADEMICO DEL CONGRESO “USUARIA '86", invita a la 
presentación de trabajos técnicos, para ser expuestos en las siguientes áreas 
temáticas: 


Seminario de Banca 
e Informática. 

Seminario de 
Productividad Industrial e 
Informática. 


Seminario de 
Educación e 
Informática. 
Seminario de 
Gobierno e 
Informática. 


Seminario de 
Informática y 
Teleinformática. 


Asociación Argentina de Usuarios de la Informática - USUARIA 
Hipólito Yrigoyen 1427, Piso 8, (1089) Buenos Aires, Argentina 
Teléfonos: 38-6579 / 38-7906. 

Auspician: • Subsecretaría de Informática y Desarrollo. • Oficina Intergubernamental 

para la Informática (IBI). • Oficina Regional de Ciencia y Técnica para 
América Latina y el Caribe (UNESCO). • Federación Latinoamericana de 
Usuarios de la Informática (FLAI). • Centro Latinoamericano de Matemática 
e Informática (CONICET-UNESCO). 








































































